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This reference manual is organized so that 


1983 9992 


SPRITE REFERENCE MANUAL 


all information 


needed to understand the imolamentation and use of the 


SPRITE Lanauace system is easily accessible. 


To facilitate an understandina cf this Language systems 


this manual beains with an introduction 
eystem process followed by explanations 
semantics and syntax. Included in the 
SPRITE STANDARD OPERATIONS CAgpoendix A)» 
QPERATIONS (Appendix 8) and FILE ATTRIBUTES 
Exolanations of the Railroad Syntax 


throughout this manual can be found in 


Appendix 0 C€SYNTAX OLAGRAHS) chould be 
before attemptire to interpret the syntax 
throughout this manual. 


Prior to oresentation of heavy detail c 


to the SPRITE 
of the lancuace 
appendices are 
EDIT PICTURE 
(Appendix C). 
diacrams used 
Aonendix De 
well understood 
diaorams used 


n semantics and 


syntax of the Lancuadg és the programmer is qiven 


explanations of the Module Interface Descri 
the prcooram moduler and SPRITE procedures. 


ption facilitys 
The balance of 


tris manual is dedicated to detailed semantics and syntax 


exolanations of the SPRITE lLanauaae. 


LTtems marked with an asterick (*) are not 
the current release of this product. 
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Users of this manual are presumed to understand orocranmine 


in one or more hich=tevel lanauaces» 
PASCAL. Exoerience with PASCAL is 


Familiarity with 84000/B3000/B2000 Series 


such 


ALGOL or 


especially useful. 


computers and 


their data representations will oe useful when dealina with 


mechine=dependent functions. Familiarity 


operatina system control statements 


with the HOPVI 


is heloful when 
cempilinas bindinae and executine procramns. 
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Tre SPRITE Lanquaoe system was desioned to facilitate the 
division of major software projects into manaceable prooram 


units or modules. The modular desion apvoroach 
the major characteristics of the SPRITE lanauace 


is one cf 
syste. 


This system is ccmposed of its programminc lLanauaces called 


SPRITE? for codina the mocules3 its MOOULE 
NOESCRIPTION FACILIYYs whose grammar and syntax 


(INTERFACE 


is couched 


in the SPRITE lLanouages for specifyinoe information about 


new the modules will interface and correspond 


others and Lastly composed of its 
SPECIFICATIONS or specificaticns that 


seamentation and overlay activity of the modules 


with each 
related BINDER 

handle the 
in memory. 


The Grammar and syntax for these BINDER SPECIFICATIONS are 


different from the SPRITE Lanouace covered 
basic BINDER 
Below ig a 


dccument. Howeveres we witt present 
SPECIFECATIONS for executina SPRITE modules. 


in this 


craphic illustration of the SPRITE system process: 
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eeeeese eevee ne 


SPRITE/P 
COMPILER 


eeoeenvneeveveece 


SPRITE 
COMPILER 


seereceeeseaeve 


SOURCE MODULE.B y 


BINDER 


eeneeeevreneven 


eeaeoeveevnvneen 


4/=> . IcmM.Mi0  . 
e It e@eeesnve0 ee Deen 
« ==// 
. ==\\ e@eevnveeeseene e@e@e#nwe 
* 14 . MIO . 


Vt » SYMBOL . 
\N=D> TABLE . 


SSSSeSse SSS ss /77 
2=ss===> , JCM.A . 


ieldina ICM.B) 


* » EXECUTABLE . 
‘SS aoe pe a CODE ij 
* . FILE . 
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Betow is a brief explanation cf the 


Ae The MODULE INTERFACE DESCRIPT 
cemponent of the procrammino sys 
submit to the SPRITE compiler. 
successful» the compiler proceed 


the MID source. Tne ICM.MID con 
block initialization information 
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system process: 


ION «MIO) is the first 
tem the programmer muct 
Assumina the compile is 
s to build an ICM.MID 
and a MIO Symbol Table besed en the data supplied from 


tains 


all shared data 


Be. After the ICM.MID and MID Symbol Table are built» the 


orcarammer must individually 
proaram modute in his SPRITE ¢« 


compile 
preooram. ilere we 


ystem 


are usinso twos MODULE.A and MODULEF.B. 


As the modules are beina submitted 
compilers the compiler simultaneously accesses the 
proceeds to build a 
Le. These ‘pseudo code 
ly Comoiled Modules or 


associated MID Symbol Table and 
*oseudo code file’ for eacn modu 
files’ are called I[Indervendent 
more frequently» ICNs. 


C. After the ICMs have been success 
SPRITE comcoilere the procrammer 


fully 
must 


sinale arcups the I€Ms to the BINDER. 


The BINDER will host the job 


compited vereion is the file 


each source 


to the SPRITE 


created py the 
then submit» as a 


of ouildina ae sinale 
executable code file. This texecutable codefile' can 
oe thouoht of as the finally comoiled version?’ cof the 
SPRITE system source tlanauage proaram. This finally 


the 


orceagrammer wilt 


execute via the appropriate system EXecute Command. 
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Belcw is a brief explanation cf ths SPRITE system orccess: 


A. The MODULE INTERFACE DESCRIPTION (MIO) is the first 
cemponent of the prosrammino system the oroaréemmer must 
submit to the SPRITE comoiler. Assumina the compile is 
successful» the compiler croceeds to build an ICM.MID 
and a MID Symbol Tabla vesed on the data supolied from 
the MID source. The ICM.MIO contains all shared data 
block tnitialization information. 


Be. After the ICM.MIO and MID Symbol Table are built» the 
proaorammer must individually compile each source 
program modute in his SPRITE system prccram. Here we 
are usino twos MODULE.A and MOOULE.8B. 


As the modules are beina submitted to the SPRITE 
compilerr the compiler simultaneously accesses the 
associated MID Symbol Table and proceeds to build a 
"pseudo code file' for each module. These 'tpseude code 
filest are called Indecendently Comoiled Modules or 
more frequently» ICMs. 


C. After the ICMs have been successfully created by the 
SPRITE comoilers the orocrammer must then submit» as a 
single arcur» the ICMs to the BINDER. 


The BINDER will host the job of ouildina ae sincle 
executable code file. This ‘executable codefilet can 
be theuaht of as the tfinelly cemoiled versicn! cf the 
SPRITE system source lanoauage program. This finally 
compiled version is the file the orccarammer will 
execute via the approoriate system EXecute command. 


cS DENTIAL AND PROPRIETARY TO 3URROUGHS 
ve TSIDE OF BURROUGHS CORPORATION WITHOUT 
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2 SPRITE LANGUAGE 


Be we ee SS ee a ee 


SPRITE» a hich Level languages was 


Scftware imolementors usine the Burrouchs 


2c00 series of Computers. 


It 1s a orocedural» etatenrent=orienteds 
Pascal-like Language. The SPRITE tanauaae 


300 


developed for System 


O» and 


stronely typed» 
provides the 


means for the procrammer to define» simoly and clearlys the 


data structures and atacrithms best 


There are no ¢40 TO statements or etatement 


SPRITE tlLanauaae. 


suited to a problem. 
Labels 


in the 
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5 PROGRAM TEXT 
SPRITE program text can te compesed via the EDITOR 


fermatted records or on standard 80 column data 
tre EOITOR ernvirenment the first 8 oesitions 
fcr sequence numbers and the retaining 72 are 


orogram text. With standard 80 column 


ocsitions 1772 are used fcr ovroaram text 


(2-80 are reserved for seauence numbers. 
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Alt entries are comptetely freerformat within the text 
oosition Limits. The proarammer is free to choose his own 
style and standard of incentation for readability. 
Howevers this Reference Manual does include text format 
ouidelines in Aonpendix G. 
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A comment is simply text usec to document 
Cemment text is yonored by the compiler 


MANUAL 
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the proaram. 
after it is 


recoanized to be a comment. Comments may appear in SPRITE 


text in either of two forms. 


In the first forme the comment fottlews 


sian. In aenerals wherever a percent sian 
text followine jt on the Line ic regarded as 
is iagnored by the compiler. The exception is 
si¢@n aopears within a strina titerals» as in 


the percent (2%) 


appear Se the 
a comment and 
when the 4% 
"Used 50% more 


disk space". In this cases the %£ sien is regarded as part 


of the strina and not as a conment indicator. 


Examole: 


“zThis is one form of cemment text 


In the second forme the comment text anpears between the 
reserved wordss COM and MOC. In this form they may appear 
only where Neclerationss Definitionss Statements and Module 
Entry Point Descriptions ‘are attowed. Unlike the first 


forme this second ferm enables comment text 


to flow from 


one Line to the next within text oosition Limits. 


COM 
This is a comment of an- 
other torm. This form allows 
comment text to be centinually 


Listed from cne Line to the next. 


MOC; 
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The most primitive elements in the SPRITE Lanauace are 


these basic symbols: 
1. The uppercase Letters A.oZ 
20 The lowercase letters a..z 


46 The digits 0..9 


4. The operational and functuation symbols 


671. 


Table 6-1 


in Table 


Pap Tinie letteg tal helattonalisssronmenl Werachebrpotwt her! 


+ ost of ee ee me | aa ede an a 2e ES es + me oS ee aan $ Om coe eae mm aes foe ey ee oy ae or cm oo am otf, 


i) + | 8 | < { 3= ! ) l 
i = ! ! { > ! sors ! ( 1 
| * j It j = i +3= 1 { j 
f / | _ t <= t - 3 \ J f 
} { && $ >= { a3°= \ { é 
$ J tt j 7s | /3= | } i 
{ ! { { &i= { plank i 
t J t i {3s { " i] 
i { { t #3= t | 
fever sa anaes foeoomae poeeworomaae frsseeeaeam frets oa ae + 
Ueper“case letters (An,oZ)» djajits (0.29) 


underscore (_) character are used to create 


particular class of words called INDICANTS 
to designate a cet of predefined data types 


are used te desianate predefined reserved words 


oe + 
, 
P { 
° | 
eel 
rH { 
re ee | 
a ! 
h t 
. 4 

some + 

and the 


names of a 
These are used 


or user defined 
data typese file attributes and their mnemonic values. In 
addition tnese lettersr dicits and the underscore character 
that brine 
structural and/or semantic context to the SPRITE proaram. 


Lowercase letters {(aeoZ)- diaits (0.09) 


urderscore (_) character are used to create 
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names cf 
arotner oarticular class of wordse called IDENTIFIERS» and 
to desianate another set cf predefined reserved words that 
invoke standard functions and represent constants. 
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Qeerational symbols have several uses. Some of these uses 


are indicated by the catecory aroupinas shown 


in Taole 61. 


Howeverse these oroupinas are not meant to be definitive of 


the symbol’s cnly category of usaaee 


Tre blank must be used to separate namese 


and titerats from one another (untess they are 
seme other symbol). The usages of the other 


be discussed as the need fer them arises. 


601 WORDS UF THE LANGUACE 


reserved wordss 


separated by 
symbols wilt 


The basic words used tc construct the components of a 


SPRITE orooram are combined accordine to 


Those basic words can be catecorized = as 


identifiers and indicants)» reserved words» 
crerational symbols. 


61.1 Names 


certain rules. 


names (i.e 


Literals» and 


Names May be used to represent objects and definitions in 


SPRITE Medules (prooram units) and in 
Irterface Descriptions. If a name exceeds 
tre SPRITE compiler wilt recoanize cntly 


SPRITE Module 
20 characters» 
the first 40. 


Furthers all names must be unique within their scope (see 


LQ). 


A name is considered 'defined* when it is associated with 
the object cr definition it is to represent. Furthers a 


name allows an object and definition to 


anywhere within its reference boundary Limits 


its name. 
There are two major classes of names: 
j. IDENTIFIERS 


20 TYPE {NDICANTS 


be referenced 


or ‘scope’ of 


Each of these two classes has a subset of predefined names. 
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Ldentifiers 


identifiers are a class of names used to Label the 
fcllowina: 


Symbolic Value Names Procedure Names 
Cefined Constant Names Data Block Names 
Variable Names File Block Names 
“Field Names (STRUCtured data items) File Names 
Proaram Names Port Block Names 
Module Names Port Names 


Identifiers are composed of? 
Lowerwcase letters (a.02) 


Ciaits (0..9) 
Underscore Character ¢( _ ) 


Examoles: 


equal _ sion mid prog 
uoper_limit disk check _module 
array_index my first proc 
name_field_part2 tokenl data_block 


The initial character of all identifiers must be one of the 
set of Lowercase letters lae.ez). The rest of the 
characters may be any combination of Lowercase Letterses 
digits» and the underscore cheéeracter. Onty the first 306 
characters of any identifier name are recocnized by the 
compiler. No user=created identifier may be the same as 
any SPRITE predefined name or ©PRITE reserved word. 


Predefined Identifiers 


This subset of identifiers are used te acccmplish the 
fellowina: 


Invoke Standard Module Precedures 
Invoke Standard Functtons ° 
Access Standard Constants 


REV. A PAGE t 2. 
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Identifiers 


The Predefined Identifiers 


Modules 
port_1o 
erag 

jo 

rep 


Examples: 


proo.wait(lenoth_of_time)s % 


(Continued) 


Functio 


abs 

edit number 
fill array 
fill string 
index 

inde x_any 
tindex_inc 
index none 
Lenoth 

Lwo 
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ares 
ns Constants Field identifier 
move words true filler 
ptr false 
ptr add nil 
ptr sub 
proc_ptr 
round 
scale ptr 
translate 
uob 
4% This statement instructs the MCP to 
4 wait before reinstatina a procram. 
This statement instructs the MCP to 


jo.close_purace(filename)s &% 


abs(variabte_name)? 


x array 3= 


always_on 3 


These predefined 
in what are called a STRUCtUred data type names. 
for further details. 


names 


section 12.3.3 


The usaqe 


of 
STRUCtured name overrides 


= trues 


identi 


these 


filllarray{O)s % 


fiers 


predefined 
their predefined connotation. 


close and ource a file. 


This function returns the absolute 


value of some named variable. 

This function sets all the elements 
of 'x_array! to zero. 

This condition sets the boolean 
‘always_on' to true. 

fay also be used as field 


See 


identifiers as part of a 
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¢ TYPE INDICANTS 


TYPE indicants are used te name data typess 


Upoer=case Letters (A..Z) 
Nigqits 0.29) 
Underscore character ¢ _ ) 


Jhe initial character cf alt TYPE indicants 
the set of upperscase tetters (A..7). The 
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10@ee BOOLEAN? 
ERCDICs etc. TYPE indicants ére composed of: 


must be one of 
rest of the 


characters may be any combination of uoper=case letterss 
digits» and the underscore character. The only restriction 


is that the proarammer may not compose TYPE 
that are the same as SPRITE reserved 
oredefined data type (TYPE indicant) names. 


NCTE: SPRITE allows the programmer to define 
types beyond those already orovided in 


indicant names 
words or ether 


his own data 
the lanauaae,. 


Those already provided are simoly termed "oredefined 


type indicants". 
The predefined type indicants are: 


BIT BOOLEAN CHAR 
HEX *LONG_REAL * REAL 


Ar indicant must be defined before it is used. 
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B LITERALS 
Literals are ecurce representations for numbers and 


strinas. Literals aré used to construct 
represent values of particular types. 


MANUAL 


L984 9992 


denotations to 


Strina Literals are delimited by quotemarks and may contain 


from 1 to 70 characters from the SPRITE character 


set. <Any 


Literal laroer ‘than 70 characters in Lenath must use the 


strino concatenation operator (+) (see 13.4.2). 


A strine 


Literal may mot exceed a source text Line voundary. An 


embedded quote is represented by two adjacent 


quotes. A 


strina literal cf a sinale character is automatically 
converted to TYPE CHAR (see 1%e2e1e04) whenever context 


requires it. 
Examoles: 


3 
100 
ay T 
" 0123456789" 
"he said ““help*".* 
M10 ee GO" Ft NFO eee ee GO" 
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A cast is an exolicit conversion of data of one type to 
another type. A coercicen is an automatice implicit 
conversion of data. Data types are compatible if one can 
be converted to the other by cast or coercion. 


Lf the context of a data type is ambiagucuss the desired 
type must be sunplied explicitly. 


Casts provide an unambiauous context for cenversicn where 
it would not ctherwise exist. See 19.2.1.23. 


See 14.7 for a list of possible casts and coercions. 
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The scope of a name 
which it is known. 


B200074000/4000 
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the extent of the 
The scepe determines the accessibility 
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MANUAL 


SPECIFICATION 


oprocram text in 


of a named object or definiticn. A name in the SPRITE 
system may be any one cf four tevels cf scope: 
prooram@locals module~locals oroceduretocal>, and 


statement=local. 


The accessibility 
be restricted oy 
name. When a KNOWS List 
the modules that appear 


Hiaher Level scopes 


tevel scopes (as 

Instead some names with hiah Level 
scecificatly imported toa be accessible 
contexts, SHARES declarations (see 


imoort 


ard nsp file 
procedures. 


Generally speakinas 
blocks 
"files" we mean files» 


plocks»s port 


All the primary names (names of modules» 
déta blockssr variabless 
point 


a specific 


field 
within the 
descriptions 


af a names 
specifyina a WNOWS List 
is useds the name is known only in 


the naties 


the names cf files» portse 


in the prooram 
In particular this means that a name may not. be 
within its score and 
scopes that intersect. 
names and 
structure 

respectivelys 


that two 


which appears in the MIO can 


{see 12.3) for the 


in the KNOWS List. 


not necessarily 


encompass lower 


strictly blockwstructured tanouaage)., 


of variables from data 
and nso files 
isee 18.3% 18.4) into 


respectively 


and nsp file 


scopes must be 
in more restricted 


15.5) are used to 


blocks (see 18.2)e 
from files port 


when we say “file blocks" we mean file 
blocks. 


When we say 


portse and nsp files. 


local procedurese 


constants» types) that are known at 


Qualified 


external procedurese 


definition and 
oecausce 


elsewhere oreceded by the structure or 


Global names are 


the predefined 


Global names may not be 


oroaram. 


in every proorame 
identifiers and the predefined indicants. 


redefined = at 


they always 
module name. 


must be uniquely defined. 


redefined 


identical names may not have 
name sp 
need be unique only 


1.@.P structure 


interface 
appear 


module 


Global names are 


any point in the 


1001 PRUGRAM*=LOCAL NAMES 


These names are defined in the oprocram MIO (see 12). 

Proocramelocal names include names cf modules» module entry 

pcints» data blocks» the variables they contains the names 

of “file blocks"s the various *files* they contain. and 
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10.1 PROGRAM@LOUCAL NAMES (Continued) 


The standard mcedule procedures also fatl in this cateaory. 


The scope of a proaram=local name is 


complete text of any module Listed jin the KNOWS 
name. Exceptions are the names of variables 
blocks and the names of files in a file block. 
of these names is Limited to those procedures 


the data blocks» file block or port block. 


List 

in 
Th 

that 


A further restriction on namino is that variables 


deta block must have distinct names from the 


alt other détae blocks ct the oroaram defined 
and similarly for files and file blocks and ports 


blocks. 


10.2 MODULE"LOCAL NAMES 


the MID and the 


of the 


a data 
e scope 


share 


in any 


variables in 


in the Mids 


and port 


Module=lLocal names are defined and tnown in a single module 
(see 11). They are names of procedures» constants» types 


and data definitions that are known throughout 


the 


where they are defined but newhere else. Variables 
known only 


déta definitions are also modulemlocal but are 


ir the orocedures tnat SHARE the data block. 


10.4 PROUCEDURE@LOCAL NAMES 


module 
in the 


Procedurezlocal names are known only in a sinale procedure 


(see 18). Tnese names incluce constant nNamess 


namese and data type names that are defined 


procedure. These names may be defined differently 


orocedures. 


10.4 STATEMENT@=LOCAL NAMES 


These names are known only within the context of 


a 


statement isee 14). FUR ang FIND statement 
names are 


variables and UNTIL*CASE statement situation 
with respect to 


statementwlocal names. They wust be unique 


alt names of hieher scope which are alsc known 


statement of the statement~local name. 
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it SPRITE MUQULE STRUCTURE 
A module is the basic unit of comoilation in the SPRITE 
system. Tt must consist cf at teast one procedure 
definition and may contain= any numoer cf constant 


definitions»s type definitions» and data de 
syntax of a mogule is? 


' 

Pe i Be ere ae ee 

\ / 

\. module name___MOD_.~ UN UU procedure def__ 
\ .__constant def__/ 
{\ type def_____/| 
IN data def oo /\ 
\__ comment / 


Figure 1071 


As can be seens the SPRITE module is made up 
components braced by the reserved words» MUD 
is simoly the reverse svelline of MOD. 


PROCEDURE DEFINITIGN (See 16.1) 
A procedure definition asscciates an id 


block of code and its data. The orocedure 
the only mandatory compcnent in a module. 


198% 9992 


AL 


finitions. The 


ee oe 


of a number of 
and ODUM. OO 


entifier with a 
definition is 
The others may 


be included as the programmer's needs dictate. 


CONSTANT DEFINITIONS (See 15.1) 


A censtant definition defines and associates 


an identifier 


with a value. Usino this oermanently unchanaeable 


identifier name has the same effect as usina 
all contexts. 


TYPE OEFINITIONS (€See 15.2) 


the value in 


A type definition defines a data type and associates an 


indicant name with that type. Whenever the 


indicant name 


is useds the effect is the same as thouah the type 


definition were used. 
DATA DEFINITIONS (CSee 18.1) 


A data definition associates an identifier w 
ables i a data bloc Usino this 


Vé in 
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LL SPRITE MODULE STRUCTURE (Continued) 


allows the data block to be referenced or SHARED 


procedures in the module. 
Example: 


scanner 
MOD 


CONST ltine_lenath = 803 
TYPE LINE = STRINE (ClLine_tenath); 


input _block 
DATA 


current_pesition 1.-lLine_lenath 
line LINE> 


next char 
PROC RETURNS CHAR? 


SHARES inout_blocks 
COM statements co here MOC; 


CORPS> 


aget_token 
PROC (token VAR TONEN_TYPE)3 


SHARES inout_ block? 
VAR current_char CHAR; 
COM statements oo here MBC; 


CORP» 


NON 


The names specified itn the CONSTANTs TYPE» 


li 


oo 


and 


by 


other 


DATA» and 


procedure definitions are known throuohout this module but 


not in any others. For definitions in 


cendition of beina known ftlocetly* can be modified 
use of the AKNOWS List Specifications in the MID portion of 


the SPRITE system proaram.,. (See section 12.3). 
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12 MOOULE INTERFACE DESCRIPIION (ilo) 


Each SPRITE proaram has associated witn it a MID. The MIO 
is used to specify the alleowable interactions amono the 
modules of the procram» and to define names which may be 
used throuahout the program (proaram™local names). 


A MID may contain any number cf constant definitionss type 
definitions» declaration blocks» DATA» FILE» PORT or NSP 
b lock definitions. and module descriptions. Each 
component may have associated with it a WNOWS List Csee 
12.4) that specifies which modules will know the names 
defined in the comoonent. 


A NID is also a basic unit of cempilation in the SPRITE 
system. 


Tre syntax cf a MID is: 


| , 


wo ero nee ee ne ee oe oe as ee oe et 


! procrams: / \ 
\u_ident_ ~~ PRUG__N component___/ GORP_ 


\ comment / | 


The syntax of component is described bys 


i 
| 
PN Rete COMSst ant GeryaV tion te ee es 
j \ 
tN ee type -dePANVEVON, 2 oe re ee { 
{ \" 
WN re sa ects, a OEP VIN oa aoa 
1 \i 
PNeo foe file definition... Se ales ee ade Sl 
| \d 
VN 32 oe Ss GCL Sr a EOI 1G Cis 8 4 a oe a Ee Od ie! { 
i \d 
ENZ 3b 2S 24: AVOGUACG “A ORE TORO, ee oe as ee tk a { 
J \! 
NA eects ta port definitions = oe sherm Of 
\A 
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A declaration block may be uged to aroup 


constants types and data defiritions tcaether. 
with 


a sinale KNOWS List to be associated 
ccmponents of the declaration block. 


The syntax of a dectaration block js: 
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some number of 


allows 
l the 


ee ee ee 


| 

Me) ee ee Be! ses casal 2s ee et at 

i / \ 

Ne DEC acN constant definition____._ | a ee ETT! a 
\ / Ae 
I\__type definition_____ /} 
I t 
I\__data definition_____ /\ 
1 1 
I\__file definition_____ /\ 
' | 
(\__vort definition_____ f\ 
j \ 
IN__nso definition__ fi 
1 ! 
\U~__comment_ / 

1262 MOOULE DESCRIPTIONS 


A module description formally soecifies the 
given mcedule cf the program. Exactly one 


descriptions must desianate where the orocran 


the 


interface of a 


module 


starts. This 


description nouses the proaram entry peint procedure. This 
péerticular prooran entry point has no formal parameters. 
Alt other module entry point procedures may specify 


pérameterse 


formal 


A module descriotion centains an interface description of 


every procedure that may be called from 


Such a procedure 1s known as an entry point of the module, 


Procedures that may not be called from other 
need to appear in the mecdule description. 


described in the MID for documentation ourposes. 


The interface description of each entry point of the 
saqeciftes the name cof tne entry point and the namepr 


and type of each formal parameter of the 


Also» if the entry voint is a functicn then the type 


return vaiue must be specified. 
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Tre use of the reserved word ENV_DEPENDENT allows the 


module to use modified types» 1e@. PACKED 


symbolics» 


DISPLAY (see L3e6i-2)e2 EBCOIC (see 12.22.1263) and STRUCS or 


PACKED STRUCS wnich use omitted or disjoint 


taa fields. 


This imolies that some implementation dependent effect is 


exoloited and that consequently the moduie may 


as intended in a different environment. 
The syntax cf a medule description is: 
t 


t 
\u_moduletident__ MOD 


net behave 


Bre te ee ics es sete, Coe oe eet ete / 
/ 
Whee Nae As ete ret | ROEM EEO IEE ae ER ee ETT 
{ / \ 
{ t entry ooint: { 
Nett Nat Ste ee ta: procedure description__.o/_. DOM 
\ knows _/ / \ oat \ 
Ne ctQOMme:n tive. ee oo ee / | 
i 
{ 
The syntax cf procedure descripticn is: 
) 
i 
NU sOrocs 1 deme. 2. PROC. A ee i 
\ \ULprec parameters o/ \ returns _/ 
! 
Me EE Net ou ea ck te ee PR ae ls / 


The syntax of proc parameters 1s3 


! EASE: Lib i OP OP NRE Es SCE SEEM AF RW See Ae ORS Pe er a 
( f/ param: \ 
Neo SOF NOON Bah re OR att oles te ee type 


\_ CONST..7 \.UNTV. 7 
1\__VAR__/I 
\__VALUE__/ 
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12.2 MODULE OESCREPTIONS (Continued) 


on 
ao 


The syntax of returns i 


= De aD me — ee ce 


Note that the reserved word ENTRY sianals that the 
procedure is the proaram entry point. GQne and only one 
procedure name in each MIO must be followed oy ENTRY. 


Also note that a KNOWS List may orefix a procedure 
description. This ANOWS List must be 4 subset of the 
module's KNOWS List. The procedure name is then knawn only 
in the modules in its KNOWS List. 


The orders tyne» access (€VAR» CUNST» or VALUE)» and 
presence or absence cf UNIV of the formal parameters must 
match that specified in the procedure's definition. The 
appearance of UNIV precedina a formal parameter type means 
that the parameter is universal. The use of a universal 
pérameter relaxes type checkine on parameter passino. 


The SPRITE compiler will check that a modute meets its MIO 
requirements 


12.4% KNOWS LIST 


Eech component of the MID may be prefixed by a KNOWS List. 
The KNOWS List contains the names cf those modules within 
the proaram which may accese the component. If a Component 
has no KNOWS Lists» then all modules have access to it. If 
an object is known by a modules then the module must know 
all of the ccompcnents used in the definition of that 
object. ANGWS Lists restrict access to a Component. A 
module name may appear in a KNGWS List which precedes the 
the description for that modute. CNOWS Lists themselves 
Cannot apnoear in modules. Atsor module tocal definiticns 
cannot be exported. 


Note that the keyword ALL may be used to explicitly declare 
that a program component jis accessible in every module, 
ALL is equivalent to a missine KNOWS List. 


‘THE INFORMATION CONTAINED IN THIS DOCUMENT IS CONFIDENTIAL AND PROPRIETARY TO BURROUGHS 
CORPORATION AND IS NOT TO BE DISCLOSED TO ANYONE OUTSIDE OF BURROUGHS CORPORATION WITHOUT 


THE PRIOR WRITTEN RELEASE FROM THE PATENT DIVISION OF BURROUGHS CORPORATION! PAS 19681 REV 6°73 


1982 9992 


B2000/24000/4000 


Burroughs Corporation <3) 
SPRITE REFERENCE MANUAL 


COMPUTER SYSTEMS GROUP 


PASADENA PLANT 
REV. A PAGE 


COMPANY CONFIDENTIAL PRODUCT SPECIFICATION 
12.2% «NGWS LIST (Continued) 


The syntax of a MNOWS List is: 


Wee ht shew ee ee 
\ / \ 
Vi. € ____N UL moculesident_ o /_ +} Lo LT LKNOW 
\ / \ / \ 
\ ALL / \ KNGWS_/ ! 


The enclosure symbols for {..-modulezident...} are curly 
braces. The use of parentheses here will cause a syntax 


error. 
1204 MODULE INTERFACE DESCRIPTION EXAMPLE 

compiler 

PROC 

{ ALL + KNOW 

CONST 
max name _lenath = 10» 
symbol_table_size = 4(Q¢ 
data_area_size = 1003 


{ scanners oarsere codeaen }) KNOW 
DEC 
TYPE 
RESERVED WORDS SYMBELTIC € procs corpse forse var)>s 
SYM_TAB_ RANGE Leesymbol_tablLe_sizes 
SYMBOL_TABLE_ENTRY = 
STRUC 
name STRING (max_name_lLenoth)» 
CASE is_keyword BOOLEAN 
TS trues word RESERVED_WORDS 
OR falsezslocation 1..data_area_size 


ESAC 
CURTS> 
sym_tao_block 
OATA 
symbol_table ARRAY CSYM_TAB_RANCGE] 
OF SYMBOL_TABLE_ENTRY» 
next_entry SYM_TAB_RANCGE> 
CED; 
{ scannere parser } KNOW 
TYPE 
SYMBOLS SYMBOLIC ( ident» number» reserved_word)s>s 


ou 


TOKEN ETRUC 
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CASE type SYMBOLS 
IS ident» reserved_word: 
table entry SYM_TAB_RANGE 
OR number: value 0.2.99 
E SAC 
CURTS3 


{ parser» codegaen } KNOW 
TYPE 
ARITH_INST 
BRANCH_ INST 
LABELS 


SYMBOLIC (€ ince add» dec» subse mpysr div )s 
SYMBOCLIC ( lsse eqls» lear ctre neq» aeq )e 
026993 


ott 


{ parser } KNOWS 
scanner 
MED 
aet_toren PROC RETURNS TOKEN, 
{ driver } KNOWS 
aet_next_symbol PROC; 
OOM; 


parser 
NOD 
parse PROC; 
initialize_ovarser PROC> 


I 
{ driver } KNOWS | 
| 
OGMs | 
| 
| 
| 
| 
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12.4 MODULE INTERFACE DESCRIPTIGN EXAMPLE (Continued) 


{ parser } KNOWS 
codeaen 
MCD 
oenerate_arith PROC (opcode ARITH_INST» 
addri SYM_TAB_RANGE» 
addr2 SYM_TAB_RANGE®s 
addr? SYM_TAB_RANGE )- 
generate_branch PROC (br_cpocode BRANCH_INST> 
Label LABELS)>3 
aqenerate_label PROC ¢(lLabet LABELS )3 
DOW> 


~ 


{ driver } KNOWS 
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NOTEs a KNOWS List containina the 


any other 


is the 


driver %Z modules*’s own name prevents 
MOO % module from accessina it. This may be 
start ENTRY? % desirable for the module containina 
DOM? % the program EWTRY ooints as 
% case here. 
GORP 
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Déeta types describe classes of values and permissible 
crerations. There are four besic cateaqoeries of data types: 
simolers aagrecater pointers ard procedure pointer. Some 
deta types may be wnodified. Type constructors are used to 
define more complex types (agorecate types) in terms of 
others. SPRITE is a strongly typed Languages each variable 
nes an associated type. 


14.1 MOOIFTED DATA TYPES 


Basic data types may be mocified to allow the proorammer 
control over their run-time representation. Modified data 
types may oe defined in the MID or in SPRITE modules that 
are dectared ENV_DEPENDENT (see 12.2) in the MID. 
NonmENV_DEPENDENT SPRITE modules may access MID data blocks 
declared with variables of modified or non=modified types. 
The type modifiers are PACKEDs> DISPLAY» and MODULO. Use of 
the modified tyres makes the module (or proaram) dependent 
on a particular machine or environment for its oroper 
cperation. 
13elel PACKED Modifier 


The PACKED tyne modifier has two basic vurposes: 


1) to direct the compiler to cheose a minimal space 
representation for the types and 


2) to atlow the actual representation cf the tyoe to 
be specified. 


The use of the PACKED modifier shifts responsibility for 
the representation of the type from the cempiter te the 
proorammers at some cost in cede efficiencyr safety» and 
ease of modification. Such a shift is justifiable where: 


1) it is necessitated by the existence of predefined 
external interfacess e.ade» a machine data format 
(result descriptor)» or an interface controlted by 
mechanisms outside the Lanouace (8CT formats). 


2> Nata space must be conserveds even at the expense 
of code space and timer ee... in a tarage data 
bace. 
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13.1.1 PACKED Modifier (Continued) 
NOTE: PACKED STRUCS are not ENV_DEPENDENT unless they 
use a construct in their detiniticn that is. 
(See LAS2°32)6 
Examples: 
TYPE 
PKO_STRUC = PACKED STRUC ch CHARs b BOGLEAN CURTS >» 
% PRD STRUC is net ENV_DEPENDENT! 
TAG _STRUC = STRUC CASE BOOLEAN 
IS true: ch str STRING (10) OF EBCDIC 
OR false: hx str STRING (20) OF HEX 
ESAC 
CURTS >» 
4% TAG _STRUC is ENV DEPENDENT 
PKD_TAG = PACKED STRUC a BUOLEAN>s 
CASE a 
IS true; vi Ti 
OR false: v2 T2 
ESAC 
CURTS> 
% PRDO_TAG is ENV_DE PENDENT! 
L%.162 OISPLAY Modifier 
The DISPLAY type modifier is used to specify an internal 
representation for non-necative inteaers, In particulars 
the use of characters (See 13.26221). 
14.1.4 MODULGQ Modifier 


ee ey 


Tre MODULO tyce modifier 
which a data object jis to be atianed. 


MANUAL 


specifies the moduto 


1983 9992 


PRODUCT SPECIFICATION 


boundary at 


The syntax for the MODULO construct is: 
type 
{ 
Noe MODULO ~~. integer ~~ non=mod“type ~o 
SA IG een ioe dene: f \ 
! 
{ 
where non=mod“type ts an indicant or any type which does 
not start with “MOOULO" Ce.ae. “VAR junk MODULD 4 MODULO 2 
BOOLEAN" is incorrect). If non-mod=type is an indicants 


you may define that indicant either 


MODULG requirement. 
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1321.3 MOOULO Modifier (Continued) 
Tre integer wmwust be an integer Literal in the ranae 
12.9999. when @eneratina ICMs for use by BINDER» this 
integer will he restricted to 2@ or & (this restriction does 
net aoply when the MCPVI option ts set). 
Whenever the MUQDULU construct is specifieda the resultina 
modulo is the least common multiple (LCH) of the specified 
modulo value and the existina modulo of the modified type. 
Thus» the modulo for "MODULO 4 EBCDIC*® would be 6. This 
means that modulos can never be lowered by usino the MQDULG 
construct. The modulo of an agoreaate (a structure or data 
block) is the LOM cf the modulos of alt its components. 
For examples the mcedulo cf 
STRUC x MOOULO 2 HEX» y MODULO 5 HEX CURTS 

would be 60 (rememberino that the default modulo of a STRUU 
is 4). Yhis example illustrates that the user of oddball 
modulos will pay a space penalty. 
It is an error if the urdated modulo vatue of a 
etack-relative item exceeds 4p or if the updated modulo 
value of any other item exceeds 9999, 
Items with the same STRUC base types but with different 
moduloss are compatible. 
For example» 

TYPE BOOLEAN_MU0D_4 = MODULO «4 BQOLEANS; 

junk 

DATA 

stranoe_bit MOQOULO 2 BIT; 

TYPE INTERFACE = 

STRUC 

first _thina BOOLEAN 

stranae_thina MODULO 4&4 0.03 

ether_stuf f STRINE (8) OF HEX 

CURTS 

VAR x INTERFACES 

y WMOQOULO 8 INTERFACES “4 Xx and y are compatible 
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MANUAL 


1983 9992 


Simple data types are finite scalarss subranges of scatarse 
and reals. A sinale ranae cf values is asscciated with a 
simole type. This rance of values may be ordered or not. 
If the values are ordered» the first value in the ranae is 
the Lowest? subsequent values are monotonically increasina. 


The finite scalar types ares beooleanss» s¢vynbeolic ranges» 


integer rancese binary ranoese characters - 


bitse and hex. 


Arithmetic and cecmparisen orerators may be applied to 
integer ranae values. Locical and equality operators may 
b€ apolied te boclean vatues. Unly equality operators 
(=e»7=) may be aoptied to uncrdered raneces and characters. 


Atl of the comparison operators (1.@.2=7 @=3 


<p <=p 3S =p >) 


may be applied to ordered scalars and strinos of ordered 


scalars. 


13.20elel Booleans 


BOOLEAN is a predefined scélar type with 


velues? true and false.: Boolean values are 


Boolean overators are ~pep 8%» &8& Ir Iie te =e 


two toaical 
not ordered, 


and =, Their 


semantics are described jin Sections 19.1.1 and 19.1.2. 


Other operations which return boolean values 


comparison operatcre (see 19.162). See also 


are the IN and 
L4elece for 


the &t=a5 Iss, #3= variations of the assianment statement. 


Examoles 


VAR comolete BOOLEAN s= falser 
not_bit BOOLEAN; 


2 


WHILE ¢comoplete 


Du 
net_bit 3= trues 
IF token = *NOT* 
THEN not_bit %= false, 
FI 

OD» 
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Bcolean Denctations 


Boolean denotations are symbotic constants which are the 
reserved identifiers: 


true 
false 


Bits 


The type BIT jis similar to BOOLEAN+> but has a oparticular 
reoresentation on the machine ~~ a sinole bit. BITs that 
are declared consecutively are allocated consecutive bits. 
The order of atlocation within each disit is most 
sjanificant bit first» 1o@o> Be hep 2p 1s Boolean 
operations and denotations are aonplicable to BITssr excent 
that BITs may not be pointed to and may not be passed. as 
VAR oarameters in SPRITE procedure calls. BIT is 
compatible with BOULEAN» but not equivalent. 


Characters 
CHAR and EBCDIC are predefined scalar types. Their range 
o f values is the character set accepted by the 


implementation. EBCDIC has the collatine sequence of the 
machine cn which it is imolementeds the rutes concerning 
ENV_DEPENDENT (see section 13.1) apply to EBCHIC. 


It is more convenient to use ceclared data as STRING (1) 
(see 14.3.2) instead cf CHAR. <A CHAR denotations or source 
text representations Looks the same as a STRING (1) 
denotations orogqram context determines the interpretation. 


CHAR values may be compared for equality onty. The 
applicable oferators are = and m=. All of the comparisen 


operators may de applied to F£ECDIC. 


A character denctation has tne form: 
“<char>® 


The gucte character (") itself is represented as two 
ccnsecutive quotes. 
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Character Denotations (Continued) 


Examples: 


ny 


"wat 


Le Diy 


Ol ei ft ty 


14.2ele04 Integers 
There is no predefined integer scalar type. Subranoces (see 
13.2.2) of the intecers may be defined. These provide a 
machine independent description of integer data. No 
inteocer may exceed its defined maximum or minimum rance. 
Example: 


TYPE INT = =999..999 


INTs -a user composed indicant namere describes the range of 
inteaer value that are expressible in three decimal diaits 
and a ¢ian. | 


The monadic operators * and = and the dyadic operators REM» 


kp fe +p "s <p Sp <=» D=y =e and ~= may be applied to 
integer values. (See also l4ele2» for ti=2 “359 Kx3=,5 = 
). Their semantics are described in Sections 19.12} and | 
19.1626 The standard operater Y‘abs*' may be used. to 


determine the absolute value cf numeric data. 
Examples: 


count +3= | 
index_init *= 5 * 2 4 9 
new numb = abs Cint var d/10 


An inteaer denotation is a numeric Literal represented as a 
decimal digit sequencer optionally preceded by a sian ( + 
or = )e 
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Inteaqer Denotations (Continued) 


Examoles 3 
=99 


227 
0 


VS ele led HEX 


HEX is a predefined» crdered scatar type ranaina over. the 


hexadecimal values 0 throuch F. 


HEX Gperations 

Tre comoarison operators ( =39 *=9 <p <=~ 
toaical operators (&» iv» 4e +7) may be applie 
type HEX and to equal terath strines 
semantics are described in section 19.1.2. 


A HEX denotation is a character literal in t 
e ge 
hexadecimal value it represents when context 


14.2.1.6 Symbolic Rances 
A symbolic ranoe consists of one or more 
reoresented by distinct identifiers. A 


description must be orefixed by GRDERED or 
syntax of a symbolic range description is: 


“aN 


_.fymoclicsidentifier 


oe ea ee vac aco 


\ 
i 

1\__SYMBOLIC ( 
\_._URDERED__/ 


Tre SYMBOLIC range is unordered. If ORDERED 
value of an identifier is "'tlese than® th 
identifiers succeedina jit and *qreater than? 
icentifiers orecedina it. ‘Symbolic ranoe 

net be used in definina ancther symbcl 
symbolic frances must have unique identifier 
the range its ORDEREDe they may be used 
subranae. No two symbolic rances are 

compatibles all are unique. 
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he rance *0" to 


and “A*® to “FF, The character is coerced to thes 


requires it. 


symbolic values 
symbolic range 
SYMBOLIC. The 


wm eee cy me 0 mo nm cos 


apopearse the 
e values of the 
the values of 
identifiers may 
ic ranaes all 
¢, Howevers if 
to define a 
equivalent or 
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Examples: 


TYPE 
STATE 
DAY = 
MONTH 


Symbolic range values 
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(Continued) 


= SYMBOLIC Cexecutines waitingsr stopped)» 

ORDERED (mons tues weds thurs. fri» sate sun)s 

= GROERED ( jan» febs mare apres mays june jules 
auce septs oct» nova dec); 


may be compared onty for equality ¢ = 


and >= ),. When the range is ORDERED» allt of the comparison 
orerators ( =»8 -=»s <se <=s9 >» >= ) may be used. A symbolic 
rénoe value may appear as the left operand of the IN 
operator (see 19.1.2). 

Symbolic Range Nenotations 

A symbolic range denotation if a symbclic ranae value 


(identifier) 
Examoles: 
sat 


executina 


13.20elef PACKED Symbolics 


The syntax 


1 

i 

\_PACKED__SYMBOLIC_. ¢ _\ 
\_GROERED_/ 


chosen from the 


for PACKED 


symopolic ranoe description. 


eymbotlics 


~.oacked scalar value__/_ ) 
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1Za2ele? PACKED Symbcolics (Continued) 


packed scalar value 
I 


| 
i 
\___scalartidentifier ooo BAS ees ee Gor ee here ae adn aa) 


\ / \ 

\L. = ~uucenstanttexor_/ 4 

{ 

! 

A PACKED symbolic is used to assian specifics internal 

representations to each cf the scatar vatues. PACKED 

SYMBOLIC types are not ordereds PACKED ORDERED types are 
ordered. 


Tre internal reoresentation of the scalar value is defined 

DY a succession rule or an optional constant expression. 

The first scalar is represented by the value 0. Succeeding 

scalars are represented by consecutive hexadecimal values. 

; Use of the ontional expression overrides the succession 

rule. The hexadecimal equivalent of the expression's value 

is used and the succession rule resumes from that value 

until another expression cverrides it. Succescive commas 

increment the internal value without assionina it to a 
symbolic name. 


The override exoression may ove either an inteaer constant 


or a HEX strina. {f it is an integer constants the value 
is converted to its hexadecimél equivalent. 


Examples: 


TYPE ENTRY_POINTS = PACKED ORDERED 


(read_entry» 4 hex value of 0 
write _entrye 4 nex value of 1 
error_entry = 9» %Z hex value of 9 
abort_entryes ~ hex value of A 
stoop entry = 20)» 4 hex value of 14 


CNTLS = PACKED ORDERED (nulesr stxe etxe eote 
ff = "C"s crd3 
%4 nul=Ose stx=27 eot=4»e cr=)D in internal hex 


Tre scalar occupies as many four=bit diaits as are 
necessary to contain the maxinum tnternal value used, 
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13.2.2 Subranoe Type 
Irteaer subranaes and symbolic subranoes may be defined. 
Tre values cf a subranage are ordered. Yo describe a 
subranae of a symbolic range the latter must be ORDERED. 
Subranaes of BIT» CrARe ERCNICe REAL»e® HEX» BOOLEAN or 
PACKED symbolic type may not be defined. The tyoe 
description specifies» in ordere the minimum and maximum 
values in the subranae. The syntax of a subrange 
description igs: 
' 
i mee 
\__constant:simple expr _.'.. __constantisimple exor__. Peale 
\ 
{ 
i 
The tyoes of the exopressicns must be equivalent. This type 
is the scalar on which the subranoe jis defined (the 
“pnarent"™).,. The bounds of ae subranae descriotion are 
evaluated at compile-time. The sudranoe includes all 
values of the parent scalar within the oiven bounds. 
Either limit may be signed» but the Lower dDound must be 
aloebraically less than or equal to the upper bdound in the 
ordering cf the parent type. 
Subranages that have the same parent are compatible. The 
relationsnios between compatible subranages are 
disjointnesss overlaps and containment. These 


relationshio 
Examoles: 


Oo oMaXx _ 
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s determine type restrictions. 


size % describes the rance of intecer values: 
% Oelr2ro.ee.eMAX SIZE. 
4% describes the rance cf inteaer values? 


A “Are@=Pep=loOrlrer dae 


describes the ranae of weekdays mon 
% throuch frigiven the ORDERED symbolic 
4 ranoe in 13.6261.6. 


The operator 


same aS pe 
ranoe inquir 
right opera 
“THE INFORMATION Sane TEM vaik Be out 
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rmitted on the parent tyne. A Subrange type 
y or subrance exoression may appear as the 
nd of the IN operator. The Left cperand must 
YE co foent Me an agent .,€catar. or a compat ib Le 
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Subranee CGoerations (Continued) 


subrangeé. 
Examples: 


VAR iv jo &k INT? 
If i IN j..2*k 


A  subrange cenotation is the same as a denotation of the 
parent tyne. 


Examoles: 


25 


i 


thur %Z see type DAY in 12.22.61.6 
12.ée62e1 DISPLAY Integers 
The syntax for OISPLAY types is? 


VLU UOISPLAY integer subrance:finite scalar type 


eS 
| 


{ 


The DISPLAY meodifier is used to describe non=neoative 
inteacers that are to be stored as numeric characters. Any 
arithmetic cperation may be ocerformed on OISPLAY items. 
They may be coerced to nonsdisoiay numbers and vice versa, 
They may be coerced te strinas and vice vers ae A common 
use of the OLSPLAY modifier is to provide a transitional 
data tyne for the conversicn of a numeric character string 
te a number and back. 


Example: 


TYPE 
CHAR_NUM 
FONUM 
OI1SP_FONUM 


STRING ©€5) OF CHAR» 
0.699999" 
DISPLAY FONUMs 


fou 


iT 
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13.2626! DISPLAY Integers (Continued) 


VAR inlse in2 STRING(5) OF CHAR» 
output CHAR NUM» 
result FONUM 


result 7= FONUM CDISPLFONUM Cinld) + FONUM COLSP_FONUM Cine) 
4 casts string to number | 
%Z Cif oossible)s» to allow | 
Z addition of numeric chars 
CHAR NUM CDOISP_FDONUM (result))> 
% Casts number to string of 
% numeric chars for printina 


i 


output 3 


12.42.2.2 Binary Intecers 
The syntax for binary types is? 


\ Luu. BINARY __ € J unumber_of_ bits: integer exor_ 9) _ 
\ 
ete shh te eet oat sit ne eR Re eee eet ata, a cle a Sere LL IU TE, SMT) 
/ 
Nez dy des Coe Rr She ot De ia Be eae ts oo ad aN Nel dN ah 2 hee ot Rte A 
\ Lwos upb: / | 
\_ RANGE ____inteoer exor eo _._integer expr_/ 


ed 


The binary type is used to cescribe non-neaative inteaers 
which are exoressed in binary rather than decimal. The 
first inteaer expression specifies the number of bits the 
type is to occunys which must be evenly divisible by four 
beGor Se Be Cho SP. 


If no RANGE part is specified» the bounds cf the type 
default to 0 and (2 ** number_of_bits) 71. then a range is 
specifiede its upper and tower bounds must fatl within the 
default ranae. The maximur rance allowed is (10**16°1). 
Therefore the maximum is 56 odits. This maximum is checked, 


Binary inteoers are ordered. ALL arithmetic and comparison 
onerators may be applied to trem. Binary integers may be 
converted to decimal integers and vice versa. They may be 
mixed in the same exoression. 
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REAL and LONG_REAL are predefined simole types. 


Values. of 


these types are fleating point numbers and are ordered. 


The rance of values (7.@.*° size of the 
fractional part) is imolementation dependent. 


oe em ae od ee SO es Be 


The operators for REAL values are the 
Cexcluding REM) as for inteaers. 
Real Oenotaticns 


A REAL denotation has the form: 


\__intecer__ . ___integer 


The meaning of the tf£* precedina the exponent 


exponent and 


same operators 


‘times ten 


to the power of*, No blanks are permitted in the 


denotation. 
Examoles: 


1of 2 
“3.0 

0-01 
4e2E™2 
t1.0E5 
3e1415927 


14.3 ACGRECATE TYPES 


Acareaate types are characterized by the comocnent typels) 


and the methed of oreanization. The avcagrecate 


types are 


arrays» strinass structurese sets and translate_tables. An 


aocrecate tyne indicant must not appear as 
its own definition. However» if T is the 
beina defineds the type PTR YO JT may 
definition of fT. 
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Arrays 


An array is an n=dimensionat collection of components’ of 
the same type. The component type may itself be an 
acarecate type. A component is selected by subscriptina. 
Tre syntax of an array description is: 


t 
| / index: \ component? 
\ ARRAY. € (NU LU finite scalar tyoe__/ j tyoe 


where the index type is any finite scalar type. That ise 
the index is @ scalars possibly unordereds with ai finite 
number of values. Equivalence is required of arrays in all 
contexts. An array may be cast from a compatible type to 
obtain eauivalence. Compatiole arrays have equivalent 
comoonent types» the same number of indicesse compatible 
corresponding indicesse and the same number of elements in 
each index. The number of indices represents the 
dimensionality. The number of dimensions must be in the 
ranoe 1..10. 


Examples: 


Given the types DNAYs MONTH Cdefined in 13.2126) and INT? 
the declaraticn 


ARRAY COAY) OF INT 


describes a vector of seven objects of tyoe INT. The 
feltlonings declarations ars some possible equivalent 
representations of tyears't, 


ARRAY CMONTH) OF ARRAY €1..5% OAYI OF INT 
ARRAY CMONTH) OF ARRAY (1..5) OF 

ARRAY COAY) OF INT 
ARRAY CMONTH> 16259 DAYI OF INT 


Ecuivalent arrays may be compared for equality (= and r=). 
The operators allowed on array elements are those permitted 
on the element type. 
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cray Denotations 


An array denotation has the syntax: 


j 
i 
| 
Ne C _.\U__element valuesexecression___/ 


Centaxt determines the denctation's type. 
the element values are coercec to the array 
The number cf values must be identical to 
elements in the array. 


Examples: 


COe0915% 204) % denotes a 
4 integer e 


CCLe Or 0) elOrtrO0) el 02001)) 4 denotes a 
%Z is the 
% matrix. 


Ye es oe SS a oe oe me Se 


A variable may scelect an element of 
subscripting. This element may be = any 
including another array or a structure, 


° 


subscripted variable is: 


Pe 


i 
4 
i 
\ .arrayiprimary____ ¢€ \ exor__ /_ 


The type of the subscript expression must 

with the correspondine index type in the arr 
The number of subscriot exoressieons must be 

number of declared indices. The order in w 
are evaluated is undefined. 
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xR identity 


an array by 
defined ty pe 
The syntax of a 


be compatible 
ay description. 
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Slices 


A subarray of an array may be selected by slic 
selects part of an array instead of a s¢inale 

slice may only be applied to the tast di 
array. The syntax of a slice is3 


1983 9992 


ina. Slicino 
element. A 
mension of an 


\ array: start index: stoo index: 
V2. 0P tary... © ase imple Ox0r 2... we 2 Sp he exor..-.. qs 
\ / \ 
\ numb elems: \ | 
\L. 32 [ou simole expr__/ \ 
{ 
l 
The form Ci.»~jj means that the stice selects all of the 
array elements from index i through index j. The resuttino 
array contains (€j 7 i)4#1 elements. {Its type is ARRAY 
Ci.e.j) of <elem type>. 
* The form fitsj} means that the slice selects jf Consecutive 
array elements becinnina with the element at index i. 
The bounds of the slice must be constant. (The object of a 
FIND statement may be an array slice with variable bounds), 
* The bounds of the slice may be variable. 
Examoles: 
TYPE SEVERITY = SYMBOLIC (clearemildrsevereshazardous)3 
VAR KL ARRAY €1.225) OF REALS 
x2 ARRAY C1le620» 0.235) OF INT. 
x3 ARRAY C1i..-10) OF REAL» 
smog ARRAY CDAYI OF SEVERITY? 
xi €33 2= x2 €30°03 + x2 Cis maxtjr» 2*n) + 1493 
emoqg €thurd] 2:= hazardous; 
K2 (100.23) *= £090%0°1]3 % X2 C1903 8= OF x2 ECleld i= QO» 
4 x2 Cile23) 2= OF x2 Civs4] t= Ls 
X3 €1.251 3= x1, 4 %3 €1) s= xi Cid, 
% x3 €23 3= x1 C23 
4 KS £283 ¢= KL C47¢ 
% etc. 
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Strings 


A strine is a 
constructor much like ARRAY. 


| 

i inteaer 

J constants 
\__STRING__ ¢ 


trina base type 


Ww 


sequence of Characters. 


_~simole exor.. 
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STRING is a type 
The syntax is? 


\ elementistrine / \ 
\__OF base type ___/ i 
i 

{ 

i 


The lLenath of the 


expression with 


any lLenoth up to 4992999 bytes 
strinas of 


9990999 digits for 


CHAR is the default STRING 


Strinas of the 
Strinas 


Lenoths) are compatible. 


same leneth 
of compatible pase tyres 


\ 

reteset Ne eee tet nee nc ne a heen Gk j 

\i 

peat OF LOI, Mace R Annotate Oe oe Oe cae ae i 

\l 

j 

i 

etrineg is specified by a constant 

a positive intecer value. Strinas may be 


for characters and up to 


HEX. 


base type. 


type are equivalent. 
possibly different 


and base 
Cand 
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1344.2 Strinas (Continued) 


MA aS do oe et oe 


Examples: 
STRING €132) 


STRING (80) OF HEX 


String Qoerations 

Strines may be compared for equality with = and ==. The 
relational operatcrs ( <» 39 <=» >= ) may be applied to 
STRINGs of E€BCOIC or HEX to test order. If the string 
operands are compatibles but ciffer in lenoths the echorter 
is coerced to the lenath of the lonoer,. 


The tLoaical operators (7» &» I» #) and their correspondina 
assianments (&8=e2 ti=r #3=) may be apolied to STRINGS of 
HEX. They perform the usual bitewise cperations on their 
operands. There are two restrictions placed on t he 
operands. 


1. Both onerands must be of the same lLenoth 


2. Variable lLenath strincs must be 100 diaits or less 
in lLenoth 


tf either of these two conditions is violateds a compile 
time or run time errors as appropriates will be generated. 


Strines may be concatenated with the plus operator (+), 
The lencth of the result is the sum of the Lencths of the 
operands. 


Strinas and displays may be ccncatenated. In this casep 
the compiler will coerce the display to a strine cf its own 
Lenaoth with the base type of the counterpart string. 


The standard functions ‘index'»s tindex_any's "index_inc? 
and tindex_none' (see Anopendix A) may be used te test the 
values of strinos., The standard function *lenath® (see 
Appendix A) may be used to determine the size cf a strinas 
including parametric setrinus (see 15.4). 


String Selecticn (Substringos) 


A strino selection is simitar to an array subscript. It 

returns a specified substrina when used as a part cf an 

expression or a reference to the soecified substrine Con 
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Strina Selection (Substrinos) (Continued) 


Seseeee ns SH 5 Sab aa le Sih th oR ise nels gems es cad ie 


A substring may be extracted from a strina by the operators 
2 or ee» (*) as follows? 


i string: etart index: 
\ primary. € ( simple expr ooo dy 22 
\ numb elems: / \ 
1\_ 33 [simple expor__/I { 
{ ' § 
* | stop index: 4 { 
\ oe simple exor__/ i 
j 
j 


The simple expressions must be of an inteaer subranae tyne 
with values areater than zero. 


The form Cit:j}] means that the substrina to be extracted 
beaqins at the ith element of the strine and is j elements 
Lona. 


% The form Cieej} means that the substrina to be extracted 
pecins at the ith element and includes att subsequent 
elements throuch the jth element. 


The form Cid produces a sinale element of the base type of 


the strina,. <A strina of leneth { can be extracted by 
Ciets13 or Ci..i? . 


Substrina selection may follow any strino expression. 
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String Selection (Substrings) (Continued) 
Examples 


buffer (73:38) 3s 
text %= card €12372);3 
result Cit3j] %= descriptor Ck..l} Cieenjs 
4 descriptor is a strina. 
& descriptor {keel] is a substrina 
% trom position k throuch position 
% lt of descriptor. 
4 descriptor (Ck..l) [1..nJ] is a 
% substring of that substring from 
% position 1 through n. 


VAR strina STRING (6) 2= "ABCDEF" » 


str STRING (€3)- 
ch CHARS 
str ¢= string (2:23);3 4 str contains the substrinae *BCD* 


a 


str contains the strina "D0 “% 
Where strina (22:23 is a substrine 
of strings strina £2:33] €2] is a 
strine element of strina [22:3] 


str 2= strino £2333] (31> 


NM ENN 


~ 


"abcd" C2:s34n)35 str contains the strina "“b* 


193] 
er 
“ 
os 
i 


Strine Conversions 

Truncation shortens a strina to the tenath of the 
destination string and checks that the truncated characters 
are all tblankst, ‘'Blankfill*® lLenathens a strine to the 
lenath of the destination string by insertina "blanks'?, 
Truncation and blankfill both occur on the richt end of the 
strina. The ‘blank* character depends on the string 
element type: 


element tyne blank 

CHAR non 

EBCOIC now 

HEX hex zero (0) 


A strina denctation has the form: 
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String Denotations (C 


J / 
\ Mee eh eat See antec ate ec vt __\ 
The type of a str 
EPCDIC. 

The quote is represen 


adjacent quote symb 
STRING must have a po 
strine, 

A sinale character 1 
The coercion STRING ¢ 
occurs whenever conte 


Examples: 


ney dh 

“This is a strin 

xyz" 

Hew HeL bore" he S 
(See also 12.6 and 
type definitions). 

130303 Structures 

A structure is a coll 
A field may be of 
type. The associat 


described 
(See 13. 


Separately 
compatible. 


The syntax of a struc 


i 
{ 
' 


\_PACKED_/ 


82600/2000/74000 
SPRITE REFERENCE 


PRODUCT 


1983 9992 


MANUAL 


REV. A 


SPECIFICATION 


PAGE 
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ontinued) 
. \ 

ee o.weharecter. 7. 8 ee eee 
\ 
t 
I 

ina denotation is STRING (ClLenagth) OF 

ted within a strina denctation by two 

ols. There is no emoty strina since a 

sitive Lenoths ise@er ** is an illeadal 


is 
EBCOIC 
it. 


n quotes 
1) OF 
xt requires 


to 


a, 
aid.” 


15.46 péerametric 


ection 

any types 
ed identifier 
structure types 
G9). 


ture description 


tyoe STRING 


ry pes 


of components 
includina another aagcrecate 
names 
are not equivalent or 


(1) DBF EBCDIC. 


EBCOIC Cor CHAR) 


and parametric 


called ‘fields?*,. 


the field. 


is: 


me ae ee eee ee ee ee ee ot 
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field 
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J ed ee Po 
{ / field name: \ 
NAS e 3 \_---identifier___ /__ type 
1 \ 
\ CASE___tao field ___IS___vaériants_ _&SAC 1 
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The Predefined [aentifier “filler” denotes an unused fietd. 


It may be used as an identifier anywhere ji 
definition or a data declaration (see 16.1) 


n a structure 
e Ine parts cf 


the structure or the fields in the data definition 
icentified oy “filler” cannot be referenced. “fitler" may 
be used any number of times in a Given structure definition 


or data definition. 


Use of the Predefined identifier "fitter" outside of 


structure definitions or deta blocks wi 


Ll cause syntax 


errors. 
Examole: 
TYPE JUNK = 
STRUC 
first_part 0..99 ? 
filler STRING (4) UF HEX » 
acodies BOOLEAN , 
filler CHAR 2 
filler 0229999999 
CURTS 


Reminder: The compiler generates its own in 
(er pads) as needed. In the above ex 
allocate 1 diaqit after “gqocdies" to put the 

address» and it would allocate 3% disits a 


“filler” to make the size of the structure m 
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The syntax for taa field is: 


taa field 
| 
t 
Ps oes OW Mane. sant 8 Fe a ce en al Be es 
( \ 
(Ne OM Od: tC tn oe ee ae Ee oh oe ee, { 
j \I 
Nee crits OVS pO: HBO a ee oe ee Bae a ta ee { 
\l 
H 
nermal tac 
{ 
! taaq id: tag types 
Nose de identifier _ oo finite scalar tyoe_ 
\ 
I 
i 
omitted taa 
{ 
J tag type: 
Ne We cs ROR Ie S08 Gat RYDE) Abed odio tie BN oS ee he Be 
\ 
! 
| 
disjoint tag 
t 
| taaq ids 
Ne GIy CAG a oe ee eee eee a ate tt yeu ties 
\ 


Use of omitted or disjoint taas requires that the type be 
defined in an ENV_DEPENDENT module or the MIO. This: 
apolies whether the declarina structure is PACKED or 


unpacked. 


(See 13.1.1). 
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The syntax for variants is 


t 
Vise ee Aer leet pee Ie Pe nied Roa sont cele Boe aa an ted we Ne ae pe 
PP es OR en Gib Po IS ones eae \ 
| / \ 1 
14 § variant label: ' \ 
\.\U_N\U_vatue collection__/_. * (ooo thes Fase! 
Not aero a re / \ 
i / variant alt: { i 
\_\UU. field. _t ] 
{ 
! 
value collection 
i} 
( 
Ms teat ccna Ae OKO Wt ate ar ete Ri eae ah inc er her th ee Rta 
# \Nuue 8 ee LLL simple exor___/ \ 
! 
{ 
j 
The List of variant alternative fields may be empty. 
A variant label iS a constant exoression whose type is 
compatible with the tao field type. If the type is 


ordered» a subrange of labels may be used (*), 


The variant 


part orouos several mutually exctusive alternatives. facn 
alternative is a field List. The value cf the taa field 
specifies a particular variant alternative field list. The 
ty Oe That 


taa field of @ variant part may be any finite 
iss it may be BOOLEAN» symbolic» subranaes 


BINARY» HEX or SET (%*). The variant tabets 


CHAR» 


are 


EBCDIC. 


possible 


values of the tao field. There need not be a variant 
alternative for each possible vatue of the tac field. The 
Asstanment to 


taa field can be accessed Like other fields. 
a normat taa field must precede assianments 


to any field of 


the associated field tList. Normal tao field assianment 
will set the fields tn the variant part to an uninitialized 
State. 

¥ References to a variant alternative field cause a check of 
the taa field to ensure that the referenced field ic in the 
active variant. . If the tao field dees not have the value 


of the variant whose field is referenceds a run-time error 


results. 
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(Continued) 


The variant part aller selection of fields by case and may 
be one of three forms? normal» disjoint taa or omitted 
tag. In the nermal forme the taa fieta is allocated as the 
first field in the variant part. If the taco field type is 
disjoint» the taaq field icentifier must be declared 
previously in a nonvvariant part of the structure. for 
examples: 
PACKED STRUC 
b BOULEAN» 
r REAL» 
CASE b %4 variant part with 
TS true: i 12210 %Z disjoint taa 
GR false: j 10... 0 
ESAC 
CURTS 
If the tao field identifier is omitteds no taa field is 
allocated and no tao field validity checkina is performed. 
The type is'used to provide centext for the variant labels. 


For examole: 


PACKED STRUC 
CURTS 

Examoles: 
STRUC 

revim REAL 
CURTS 
STRUC 

year 1.62099? 

month i..12> 

day Leow?) 
CURTS 
IQCLASS = SYMBOLIC 
S TRUC 

name STRING 


idtype SYMBOLI 
CASE class 


IpcLaAss 4 


CASE BOOLEAN %Z omitted taa 
Is true: numeric ustrina ALFA 
GR false: ‘ordinal NUM_ALFA 
ESAC 
% describes a structure 
4 of two REAL fields named 
% *re®* and *im' representing 


4 a complex number. 


% describes a structure of 


% three integer fields 
4 representina a Greaorian 
% date. 


(consteidentsvarblsprocd; 


4% describes a structure 
10)» %Z which mioht be used in a 
C Cinteboolserealds»s % compilers it aroups 
teaether information 


Ped 
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Variants (UContinued) 
{Ss const? values VALUE % about an identifier. 
GR varbl: vk ind SYMBOLIC Cactual» format )» 
vaddr ADDR_RANGEs 
initval VALUE 
OR prec: CASE pkind DECLKIND 
{s standard = key 1..10 
OR declared =: paddr CODERANGE 
ESAC 
ESAC 
CURTS 


STRUC 
CASE b BOOLEAN 
{iS true? r REAL 
OR false: 
ESAC 

CURTS 


Structures of the same tyne may be compared for equality 
with = and -=. The operators allowed on structure fields 
are those permitted on values of the field's type. 


A structure denctation has the syntax: 


i 

i} tot erie eaten RE cote A Ee he ee 

| / \ 

Nie oie 8 a. € JNU field veluesexpr__. | a: ees 
\ 
{ 
\ 

Centext determines the type. If necessarys the field 


values are ccerced to the required type. The expressicn 
correspondina to a taa field must be constant. 


For a structure denetation whose tyne has an omitted taae a 
value representing the tyne which provides context must be 
included. 


Examples? 


C2777% nile true] % denctes a structure of 


Z three fields: intecers 
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Structure Denotations (Continued) 


See weteeu & b> ier er a oY 


% oointere and boolean. 


C3efleOeDeO22 oS] o*e"pimul te div} ) % denotes a structure of 
% four fields: inteagere 
%Z array of 3 reals» 
4 charactere and a set. 


A variable may select a field of a structure. The syntax 
i 


No to5 Jf structurezorimary. ~~. 5 2 fieldzidentifier_.. 
\ 
{ 
t 
Examoles3 
Given: 
VAR new ref INTER _PROC_REF 
Wheres 
TYPE INTER_PROC_REF = PACKED 
STRUC 
CASE destination J_TARGET 
$ intr dest 3s dest_bdlock BLUCK _NUM» 
dest_labelt LABEL NUM 
OR extr dest 3 external_ref EXTERNAL_NUM 
ESAC 
CURTS 


tience the followine field selections are valid: 


new_refedest_bloctk 
new_ref.dest_label 
new_ref.external_ref 


13.3.4 sets 


A set is a aroun cot discrete values» which are called the 
elements of the set. A set value may include from zero to 
256 elements. The syntax of a set description is: 
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1983 9992 


The base type specifies the type of the set elements. ihe 
base tyoe is any finite scalar tyoe. That is» the base 
type is a scalar typer vossibly unorderede with aie finite 
number of values. The maximum number of elements the base 


type may contain is 256. The possible numoer 


of distinct 


elements in a set is restricted to the number of values in 


the base type. 
Examoles: 


SET OF SYMBOL 
SET DF 1.210 


Ecuivalence is required of sets in all contexts except a 


cast. 


* A set may be converted to a4 compatible set 


(1.@.e with a 


comoatible base type). Conversion is possible onty if the 
Cast base type tincludes! the base typve of the aroument. 


Elemants of a set ttust all be type equivalLent. The base 
type of a set value must be provided by context. The left 
operand of the set IN ooerator must be equivalent to the 


base type of the riaht operand. 


Set operators are the monadic operator 7 and the dyadic 


operators * p +p - >: te => “=p Dp Dae <p 


and <=. Their 


semantics are described in Sections 19.1.1 and 19.1.2. 


Beth operands must have eauivalent base tyves. A set may 
be the right operand of the IN operator. The Left. cperand 


is a scalar value of the set's dase type. 


Set Denotations 


Set denotations have the form: 
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The type of a set denotation is determined by context. The 
elements are coerced to the base type if necessary. The 
elements may be variable or ccecnstant. The emoty set is (}. 


* The ranae cf values may be used if the base tyove is 

ordered. 
Examples: 

istashe “9"%,» che CHAR Cid £52213) } 

{orime €i)» 2*i} 

ch IN i@* a> vt b™ » Wott» Val X® » a 27% } 

{tues} 

{} 

[34325 Translate tables 

TRANSLATE_TABLE is a special puroose predefined indicant 
names it is an acoarecate type indicant name . 
TRANSLATE_TABLE is used only in constructina tables for use 
with the ‘translate’ standard function. The actual 


reoresentation of this table is defined by the underlying 
machines and imposes certain restrictions on the ‘creation 
and use of cbjects of type TRANSLATE_TABLE. 


ee ee a ee ee 


Nc operations cther than assianment are defined for objects 
of type TRANSLATE_TABLE. 


Denotations for objects of type TRANSLATE_TABLE do not 
exist. Howevers a constant of tyne STRING (256) BF EBCDIC 
méy be coerced to type TRANSLATE_TABLE in initializations 
only. 
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oe ee we ee ee ee a eee ee es we ee ae ee ee ee ee eee 


he eh Nes a SOON OSS VO Uns Ste an hee de eS OY een? eee 
\ Nu ee ___expression__/ / \ 

Niet he BS se ee ot are fh 1 

4 

i 


The type of a set denotation is determined by context. The 
elements are coerced to the base tyne if necessary. The 
elements may be variable or ccnstant. The empty set is (}. 


* The ranae cf values may be used if the base tyne is, 
ordered. 


Examples: 


{slash» “2%, chs» CHAR (Cid [£5221]) } 
{prime (i)» 2*7} 

ch IN {Tams “b™p "c™p Mh, "N7Z} 
{tues} 

{} 


13.2.5 Iranslate tables 


TRANSLATE_TABLE is a special opuroose oredefined indicant 


name. It is an acarecate type indicant name. 
TRANSLATE_TABLE is used only in constructina tables fer use 
with the 'ttranslLate' standard function. The actual 


representation of this table is defined by the underlyina 
machines and imooses Certain restrictions on the ‘creation 
and use of cbhjects of type TRANSLATE_TABLE. 


Se Se ee ee See ee 


Ne operations cther than assionment are defined for objects 
of type TRANSLATE_TABLE. 


eee ee eee oe eS 


Denotations for objects of tyne TRANSLATE_TABLE do not 
exist. However» a constant of tyne STRING (256) GF EBCDIC 
méy be coerced to type TRANSLATE_TABLE in initializations 
only. ‘ 
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The following restrictions apcly to the declaration and use 
of objects of type TRANSLATE_TABLE: 


1) May only be declared in déta blocks or as STATIC Local 
variables? they may not be aenerated (via the GENERATE 
statement). 


2) May not be used as a comocnent of an aaarecate type; 
they may be the referenced tyne of a pointer. 


Example: 
DATA 


4 where e_to_a and a_to_e are constants 
Z of type STRING( 256) of ERCDIC 


ebcdic_to_ascii TRANSLATE_TABLE s= 
ascii_to_ebcdic TRANSLATE_TABLE s= 


PROC; 


VAR a STRING 6)» 
e EBCDICs; 


a ?= translate (e» ebcdic_to_ascii); 
e := translate (as ascii_to_ebdcdic ); 
CORP 
1364 POINTER TYPES 


A  oointer is areterence te an object of some particular 
type. Pointers to BITs are net allowed. A storaoe Level 
méey be associated with the referenced type (*) . The 
syntax 182 
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13.4 POINTER TYPES (Continued) 
{ 
i 
NGTPUER 3 ote a ee ee Rte Ie eg eee ee eee ee ee referenced:type__ 
\_TO_/ \L_CUNST_U/ NOL LEXTERNAL__/ \ 
\_VAR__ 7 \_EGCAL_. / ! 
{ 
| 
CONST indicates that the pnointer has readonly access to 
tre referenced objects that is» the object's value may be 
used but not chanced. VAR indicates that it has read/write 
access’ that is» the cbject's value may be chanaed. The 
default access is VAR. 
* The storage Levels are: 
Level name meaning 
LOCAL referenced object is in a temocrary 
storace location 
EXTERNAL referenced cbject is in a static 
storage location local to the program 
A pointer may not reference data stored at a level tower 
(LOCAL is lowest) than the tevel associated with its 
referenced tyce. The default tLevel is LUCAL. 
¥ Ecuivalent opcitnters have the same levels» the same access 
and @oauivalent referenced types. 
Parametric STRING types may be used as the base type of 
pointer variables. When this is the cases the pointer 
veriable may take on values whicn reference strinas. of 
different leraths as leona as they are all compatible with 


the parametric tyoe. 
Examoles; 


PTR TO A_STRUCTURE 


PTR TO ARRAY (1.2.5) OF BOOLEAN 


describes a pointer 
to a structure. 


describes a pointer 
to an array of BUOLEANS. 
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Pointers cf ecujvalent types may be compared for equality 
with = and =, =The standara function ‘otr' €Appendix A) 
returns a pointer tc its oarameter. No other operations 


are defined. 


The only pointer deneotation is the constant 


nil 


tnyl? is a reference to no value whatscever. [ts tyoe is 


ecuivalent to any oointer type. 


Dereferencing 


A variable may select the value referenced by a 
The syntax is: 


rd 


Om ee om ah rm aD mS YD md say cy AED AON NR SD YN PE 


pointer. 


A runetime error witl occur if a dereferenced vointer is 


undefined or has the value ‘nil’. 


The function ‘otr' produces a pointer vatue; it 
inverse of dereferencino. 


Examples: 
DISPLAY subrange <==> subranage 


1. TYPE LIST_PTR = PTR TO LIST? 


TYPE LIST = STRUC 
CASE key NODEKIND 
S atom: s STRING(10) 
OR Lists: head» 
tail LIST_ePTR 
% LIST's description 
4 may not contain a 
4 field ef type LIST» 
Dut may have a type 
PTR TO LIST» 
jee. LIST_PTR 


Re Ae a 


ES AC 
5 e 
CURTS> 
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(Continued) 


VAR pr PTR TG INT» 
1 INT 3= Jes 
j INTs 
pr *= ptrea); 
prd +3= |e 
j 2= prds % j has the vatue 
20 TYPE 
SEGMENT_DICTIGNARY_ENTRY = 
STRUC 
seaqment number 
overlay _calt count 
quick_overlay_addr_kd 
quick_overlay_status 
tow_order_disk_ader 
seoment_size 
CURT S> 
TYPE 


SEGMENT DICTIONARY = ARRAY (1.220013 UF 
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STRING 
02099» 
Loo 33330 
STRING(1) UF 
40099999 
002999999 


(2) OF HEX» 


HEX » 


SEEMENT_DICTIOGNARY_ENTRY? 


TYPE 
COLO_START_INFU = 
STRUC 
mem_dump_addr 
mem _size_in_oaages 
seGg_dict_otr 
CURT S? 
VAR cold_start_info 
VAR work 6 


workos= cold start_info.seq_ dict_ptrafl2}.seament _size/icoono s 


Ba ee ee ee et ee Seri VD eee eee 


Variables of tyoe nointer 
may be initalized at compile 
referent must 
apoly that apnly to the use 


followine table shows the 
““THE INFORMATION CONTAINED IN THIS DOCUMENT IS CONFIDENTIAL AND PROPRIETARY TO BURROUGHS 
CORPORATION AND IS NOT TO BE DISCLOSED TO ANYONE OUTSIDE OF BURROUGHS CORPORATION WITHOUT 
THE PRIOR WRITTEN RELEASE FROM THE PATENT DIVISION OF BURROUGHS CORPORATION" 


time. The 


of the ptr 


valid referent kinds 


122659532%5¢ 
Loo l3k4» 


PTR SEGMENT _DICTIONA, 


COLD _START_INFOS 
1629999993 


(but not pointer to procedure) 
address 
be determinable at compile time. 

function. 


of the 
Alt rules 
The 
for each 
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kind cf pointe 


PUINTER 
KIND (1) 
(A) | YES 
pom aue 
(B) i YES 
+ eumume @ 
(C) { YES 
}~ecane 
where 

POINTER KI 

CA) 

«B) 

(C) 
REFERENT « 


C4) 


(2) 


(4) 

(5) 

For examplee 
VAR ju 


ju 
ot 


Procedure Poin 


A procedure 
procedure. D 


ocedure which 


or 
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of pointer variables (Continued) 


Beeee Be eee SSS eS 


fs 
REFERENT KINO 
(2) (2) (4) (5) 

es pesresaee fuse oesae fos esas fm eo me at ms oo + 

! YES { n/a { n/a | n/a ! 
esa pewamon es $eeecunene foe seee es foman awe + 

1 n/a | YES 1 YES I NO t 
ae4 Sees = osSsee" Siac at atc Selita Ne dio + 

| n/a H YES 1 YES t YES t 
wap woos fev anecaatonsscn = fo seu ase + 
NO 


Data bleck pointer variables 
STATIC pointer variables 
Stack pointer vériables 

IND 


Constants 


Data block variables (for the same block 
only). 

QOata block variables (for the shared blocks 
only) 


STATIC variables in the same orocedure only 


Stack variables in the same procedure cnly 


nk JUNK» 

nk _otr PTR TO JUNK z= ptr ¢Cjunk ds 
r_ten PTR TO CONST~1..10 2=. otr €10)> 

ter Iyoes 

pointer is a reference (pointer) to a 


ereferencina a procedure pointer invokes the 


the oroceduré pointer references. This 
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allows runtime determination of the procedure 
be called at a aiven place in the oprocram. The 
procedure pointer description is: 


Moca! PU Recetas AA on ee PRO et oe Ne ete beg eh the at al teat 
Nscetts tignt ae / \ 
Newer Sen eah snc eee. attributes _ = / 
attributes 
' 
! 
MWe ret ee Ee ls ere Tete ee te oh a Ree eee or ee 
\ pérameter /N\ / \ 
\___descriptions___/ \_. RETURNS type _ / ' 
i 
{ 
péerameter descriptions 
t 
t ee A a ce ae ed core re ee Ne ee i ate ce 
t / param: \ ‘ 
\ ( Nt oO Gib 2 40 he ee Fae ee type, /o0 ) © 


\_._CONST___/ \_UNIV_/ 
\___VAR___/ 


\_VALUE_/ 


For a descripticn of oarameterss access univ 
type see Section 16.1 Procedure Definitions. 


A procedure pointer description identifies 
procedures that have equivalert parameter tists 
types. Procedure pointer cGescriptions may 
declare a procedure pointer vériable or to pass 
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which will 
syntax of a 


\ 
{ 
i 
| 
} 
and return 


a class cf 
and return 
be used to 
a procedure 


pointer as a parameter. A procedure pointer variable (Cer 


pérameter) may only be assianed (or vnassed) ar 
a procedure that is defined or the pointer value 
the procedure pointer is dereferenceds the proc 
ig the current value of the pointer is called. 


eference to 
nil. When 
edure that 


Ecuivalent procedure pointers may be compared for equality 


using = and =. The standard function ‘proc_ot 


r* may be 


used to create a procedure ocinter. No other cperaticons 
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13.5 Precedure Pointer Types (Continued) 
are defined on procedure’ pointers. A oprocedure pointer 
variable may inveke the referenced procedure. The syntax 
iss 


j 
( 
\ proc ptr? primary_ a 


Ne 8 Sed Die eo Oe esl “NN 
4 / actual param:\ (4 
Vu. € JuNULexoression__ /.. ) ~./ 1 
Nis RUN op th ney crt they ot / ! 

i 

! 


Dereferencina a nit or undefined procedure pointer results 
in the same runetime errors as would be associated with a 
nermal pointer in the same circumstances. 


Examoless 


1. PTR TO PRUC (float REAL» int INTEGER) RETURNE REAL 
PTR TO PROC (flac BOOLEAN) 
PTR TU PROC RETURNS INT 
PTR PROC 


ta truncating 
PROC (€x REAL) RETURNS INTs 
RETURN round ¢(x)%3 
“CORP? 


roundina 

PROC (x REAL) RETURNS INTs 
RETURN round ¢€x + 0.5)3 
CORPS: 


examole PROC; 
VAR o PTR TG PROC (float REAL) RETURNS INT 


IF do_roundina 


THEN 9 2= proc_ptr (rounding) 
ELSE p 3] eroc_otr (truncatina) 
FI; 


estimate 3= pad (Catcurate-meacure) 
CURP > 
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13.6 PARAMETRIC TYPE CONSTRUCTORS 


A parametric tyoe constructor defines a family 


data types by allowina the size attribute 
types to vary» ie@e» be parameters. 


of retated 
of certain data 


Every use of such a type must supoly actual values in place 


of the formal parameters. The oarametric type 


constructor 


is like a template from which many tyoes can be obtained by 


supplying actual parameters for the formals. 


When such a type is associated with an objects 


parameter describina that object parameter 


for the formal. The result is a fixed 


semantics of that fixed tyne apply. 


Because its size varies depencina on the . actual 


the actual 


substituted 
type and the 


parameter 


civene a oarametric type may not be used to construct an 
acoregqate type or a data block. After a parametric type is 


declareds that type indicant may oanty 


used as a 


procedure parameter or as the object of a pointer. 


Only one format parameter is allowed in the definition of 


the parametric type. (See 15.4). 


EQUIVALENCEs CUMPATIBILITY ANO CUERCIONS 


— 
ts 
8 

~~! 


A type indicant acts as an abbreviatien for 


After all such abbreviations have been replaced 
"equivalent! jf 
of values. 


definitions» two simple data types are 


their expandec definitions have the same ranace 


its definition. 


by their 


Other data tyres are equivalent if their correspondina 


ccmponent tyres are equivalent and their 


etructurina 


methods are the same. (Exception: seoarately described 


STRUCtures are not equivalent» even if 
descriptions are identical in all respects). 


seovarate 


A cast is an explicit ccenversion of data to another type. 


A coercion is an automatics implicit conversion 


of data, 


Data tyoes are ‘compatiblet if one can be converted to the 


other by cast or coercion. 


Tre following table Lists the types in SPRITE 


which are 


cempatible. Thuss coercions and casts can be performed for 
those typese It should be nected that SPRITE only oerforms 


sinale=step conversionsse say from BIT 


BUDLEAN. 


Multisstep conversions such as numeric to DISPLAY to STRING 


are not attempted. For multim=step conversionss 


be exolicitly specified by the user. 
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CUMPATIBILITY ANC COERCIONS 


DATA TYPE 


(Continued) 


STRINC(1) 
OF TYPE 


BOOLEAN 


STRINGCn) 


subrance 


PTR VAR 


PTR fixed strina 


PTR parametric strins 


PTR oarametric 
CHAR 

STRING(1) CHAR 
STRINGC1) EBCDIC 


STRINGOn) EBCOIC 


DISPLAY subranae 


DISPLAY subranae 


STRING Cn) 


STRING(n) CHAR or 


“ 


strinal 


0I- 

REC = 
TION 
<s='> 
q=za3 
<==3 
it | 
==> 
<==> 
==> 
==) 
==> 
<==) 
P| 
C=.5:> 
q<==> 
{S25 
==> 
==> 


STRINCG(m) 


parent subrance 
overlappinc subranae 
BINARY 

PTR CONST 


PTR varametric strina 


PTR fixed strina 

PTR parametric strina2 
EBCDIC 

EBCDIC 

CHAR 


STRING(n) CHAR 


subranae 


STRINGOn) 


DISPLAY subrange 


STRINGOn) HEX 


truncation or fill 
Cnv=m) 


range check 
range check 


rance check 


ranoe check 


ranae check 


left zero truncate; 
error if etrine 
too bia 


Left zero fills 
error if string 
too Dias verify 
ali numeric; 
ranae check 


CHAR or EBCOIC 
string must be a 


i oe 
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NOTES 


STRINGC1) CHAR 


STRING(C2n) HEX 


STRING(2) HEX 


STRINE( 256) EBCDIC 
or CHAR or 
STRING ¢€512) HEX 
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STRING(n) EBCOIC 


EBCOIC 


TRANSLATE TABLE 


CHAR or EBCOIC? 
string must be a 
constant 


HEX strina must be 
a constant 


HEX string must be 
a constant 


String must be 
a constant 
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13.8 DATA MAPPING 


This section describes how SPRITE data types map onto the 
Burrouchs 2000/2000/4000 machine data types. This section 
is divided into two parts: mappine of simple types = and 
mapping of aGgarecate types. This is done vecatise the 
mappina of aaqarecate types depends upon the mavping of 
their components tyoes. Following this section is a table 
that summarizes this information. 


The mappina of a SPRITE data tyoe is described in terms of 


four quantities: unit size» machine tyoes dicit size and 
modulo. 

Unit Size refers to the size of the tyoe in terms of some 
unit of the machine. These units are the bit (one fourth 
of a digit)» 1 djiait» byte (two digits) and word (four 
digits). The unit size is often used in the lLenoth fields 
cf machine instructions which refer to data of a ovarticuiar 
tyoe. 


Machine Type refers to the physical machine type te  whicn 


the data is mapoed. The naossible values are listed below. 
UN 7 unsianed numeric 
SN - signed numeric 
UA = unsioned alpha 


Digit Size refers to the totat size of the data type 
expressed in diaoits. <A onerdigit base four fraction is 
used to reoresent obit tencths. Thus» O.1 reoresents a 
Lencth of one bit» 0.2 two bits» 0.4% three bits and 1.0 


four bits or one diait. 


Medulo refers to the required memory address alianment for 
an object of a particular type. Acaine a fractional part 
will be useds this time to express bit modulors j.ee.» the 


modulo for the tyoe BIT is 0.1. 


12.861 Data Maopine of Simple Lyoes 


This section describes the data mappnine of SPRITE simple 
types in terms cf the four quentities descrived above. 


13.8-121 Déta Mapnoina cf Booleans 


BOOLEAN objects have unit sizes diacit size and modulo of 1» 
and a machine tyne of UN. The BOOLEAN value false has a 


numeric value of 0 (Clow order bit off) and the vatue true 
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12.80.1601 Déeta Maopina of Booleans (Continued) 
has a numeric value ef 1 (low order bit on). 

14.81.62 Déta Manoinga of Bits 
BIT objects nave a unit size of le divit siz 
O.1 ¢tsee descriotions of dicit size an 
machine type of UN. The identifier false 
bit off value. 

13 2.86e61-6%3 Déta Mappina otf CHAR 
CHAR tyoe has a unit size cf ones digit siz 
2 and a machine type of UA. The values are 
EBCDIC characters. 

1308ce1-4 Data Mappina af EBCDIC 
The values of unit sizes digit sizes mod 
tyoe for tyne EBCDIC is the same as fer CHAR 
2 and UA. Values of type EBCCIC are arranae 
collating sequence. 

13.68.6165 Data Manpina of HEX 
For HEX» the values of unit sizes diait siz 
machine type are iL» le t and UN» respective 
of tyoe HEX are the hex digits O-F. 

1%3.8.1.6 ODeta Mappino cf Intecer Types 


The unit size of the inteaer subranae a.ob j 
of the number of digits in a and in b (not c 


zeros). This can be concisely written 
(fatsetbi)d) + 1» untess a = b = Ov in which 
size is 1. If a< 0» then the machine 


a >= QO» then the machine’ type is UN. If the 
is SNe the digit size is one more than 
otherwise» the digit size equate the unit si 
of integer types is always 1. 


12.8e61l6/ Data Manpnpino of Disolay Inteoers Types 


The unit size of the tupe DISPLAY a..bd i5 

diaits in b (not countine tleadine zeros). 
is two times the unit size» the modulc is 2 
tyoe is UA. Actually» the values are 

character diaits. 
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d modulo) and a 
represents the 


e and moduto of 
the 95 graphic 


ulo and machine 
ep namely» jl» 2e 
d in the EBCDIC 


ers modulo and 
ty. The values 


s the maximum 
ountina teadine 
as locld (max 
case the unit 
type is SN. If 
machine tyne 
the unit sizes 
ze. The modulo 


the number of 
The digit size 
and the machine 
represented as 
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14.821.8 Déta Manpinoa of Symbolic and Ordered Types 


The unit size of SYMBOLIC and ORDERED tynes is the digit 
size of the number of symbolics defined. This can be 
represented as toaid (# of symbolics) #1. The diait size 
is the same as the the unit size» the modulo is one and the 
machine type is UN. SYMBOLIC and ORDERED names are 
assigned consecutive decimal valuese startinao at 1. The 
Limit on the nummber of names that may be defined in a 
SYMBOLIC or OROERED type is 9999, 


12.28.1269 Déta Mappino of Packed Symbolic and Ordered Tynes 


The unit size of PACKED SYMBOLIC and ORDERED tyoes is the 
number of hexadecimal diaits in the hexadecimal value 
associated with the final symbtolic defined. The disit size 
is the same ast the unit sizes the modulo and machine type 
are 1 and UN. PACKED SYMBCLIC and ORDERED names are 
assianed consecutive hexadecimal values startina at zeropr 
except when an override is sucplied as described in section 
13.2e1ef76 The number of names that may be defined in a 
PACKED SYMBOLIC or GROERED type is 9999 and the maximum 
value that may be associated sith any name is *FFFF*, 


132.8.1.10 fata Mappnine of Binary 


The untt size of BINARY types is the number of bits civen 
in the definitions and must be a multiote of 4. The digit 
size is the unit size divided by 4. The modulc is 1. and 
the machine type is UN. 


13-862 Qata Mappine of Agoreaate LTyos 

This section describes the manpina of SPRITE aaaregate 
tyoes to 82000/2000/4000 machine data types in terms of the 
four quantities unit size» diait sizes moduto and machine 
type. By definitions  aaorearate types are composed of 
objyects of other types» so detailed descriptions cf how 
these components are arranced in relation to one another 
within the agoreaqate are included. 


13.68.6201 Déta Mappina of Pointers 


There are three different imclementations of pcocinters °° 
pointers to procedures tPROC PTR)» pointers to varametic 
strines and all other pointers. 


The third case is easiest to describe. The unit sizer 
dicit sizes modulo and machine type cof *reaular®™ pcinters 
are &» Be 2 and UN» respectively. These pointers are 


represented as extended machine addresses. 
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If the obdject pointed to is a parametric strinos then the 
unit size» digit sizes modulo and machine type are 14» le 


2 and UN» respectively. fhis tyne of pointer 


is stored as 


a six digit lenoth field followed by a ‘“reoultar® 8=diait 


extended address. 


For PROC PTRs» the unit sizee diait sizes modulo and 


machine tyne are 95 9s 2 and UN. These pointers 
in memory as a6 diait address followed by 


séeament number. 


1308.2.2 Data Mappine of Sets 


are stored 
a 4% dicait 


The unit size and digit size for sets are the number of 


elements in the base tyne of the set. The 
just ocroups of 
indicates the 


machine tyoe are 1 and UN. Sets are 
booleans where the value cf the nth BOOLEAN 


modulo and 


presence or absence of the nth element of the base type in 


the set. Users should be forwarned_ that 


sets of CrAR 


contain only 95 elements (one for each orintable character) 


while sets of EBCOIC contein 256 elements. 


number of elements in a set is 256. 
1%2.8.2.%4 Data Manpina of Translate Tables 


For tyoe TRANSLATETABLE the unit sizer digit 


The maximum 


size» modulo 
and machine type are 3895 778% 1000 and UA. 


Translate 


tables are initialized with STRING (256) OF CHAR or EBCDIC. 


14.82.2264 Data Mappine of Strings 


For strines of HEX» the dicit size and unit 
number of elements specified in the strinc. 
machine tyoe are 1 and UN. 


For strings of CHAR or EBCDIC» the unit size 


size are the 
The modulo and 


the number 


cf elements specified in the string and the dicit size is 
twice the unit size. The modulo and machine type are 2 and 
UA. Parametric strinas are mapped usina two comocnents. 


The first is a descriotors which has a unit 


sizer digit 


sizee modulo and machine type cf 14% Lae 2 and UN. This 
descriptor contains a six digit unit size field (not diait 
size) followed by an eioht diacit extended address. The 
address points to the other ccmponents the string itself» 
which has the same attributes as a non=parametric strine of 


the length incicated by the Lenath field. 


The controller 


in the address field is the same as the machine tyne of the 


base type of the string. 
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143.8.225 Data Mappina cf Arrays 


The machine type cf an ARRAY is UN. The modulo of the 
array is the same as the modulo cf the component type. If 
necessary» the lLenath of each component if rounded up to be 
a multiole of the component's modulo by includine fitler. 
The unit and digit sizes cof the array are computed by 
multiolyina the tenath of each element by the total number 
of elements in the array.’ Elements in an array are stored 
in row-major order. 


Arrays of BIT are handled sliontly differently» since the 
medulo and digit size of a BIT is Less than cone digit. The 
most basic row of an array of BIT (correspondino to the 
tast index) has a moduto of 41 and its tenoth is rounded up 
tc the next whole digit. ALL rows cContainine this row as a 
ccmponent and the array itself wilt thus have a modulo of 
one and a lencth expressed in whole digits. 


Examples: 


EXAMPLE L ARRAY €1.2-891..6) UF BIT? 
EXAMPLE2 = ARRAY (C1209) OF 02.9993 


The array type EXAMPLEL wilt have a module of 1 and will be 
16 dioits lono. The array tyce EXAMPLE? will also have a 
modulo of 1 and wilt be 27% dicits tona. 


14.8.2.6 Déta Maopina of STRUC 


The . type STRUC has a modulo cf 4 and a machine tyoe of UN. 
The digit size and unit size are equal to the number. of 
digits from the becinninae of the STRUC to the end of the 
Lest fields rounded up to a medulco 4&4 value. Within the 
STRUC» regular and tac fields are positioned consecutively 
one after the other at the first Location that satisfies 
each field's modulo requirements. The first field in each 
Variant is positioned at the first tocation followina the 
tao field tor the last field crecedina the CASE for omitted 
or disjoint tao fields) that satisfies the field's modulo 
requirements. Subsequent fields in a variant are 
pcsitioned in the same marner as reoular fields. The 
tencth of a CASE construct is from the first tocation 
allocated to a tag or variant field te tne end of the 
lonaest variant and is not necessarily an inteorat dicait 
value. 
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1%.8.2.6 Déta Mappina of STRUC (Continued) 


Examoles: 


EX1 = STRUC %Z Uffset Lenath 
fieldl BIT. A 0.0 O01 
CASE taal BIT vA Oo l Ool 
Is false: field2 GIT % O02 Ool | 
GR true: fields BIT A OQOce2 Ol 
ESAT % lLenath = 4 diaits | 
CURTS » 4 filler = 4.1 dicits 
EX2 = STRUC %4Z Uffset Lenath 
field BIT. ~ 0-0 Nol 
CASE 0.-2 4 
TS 03 fietd2 EXL E 4.0 4.0 
OR 1: fields CHAR 4 220 200 
OR 23 field4 BOULEAN vA 1.9 1.0 
ES AC » 
fields BIT vA 8.0 Ool 
CURTS % leneth 12.0 diaits 


% filler = 3.3 dioits 


14.8.2.7 Data Manpina of PACKED STRUC 


The machine tyne for PACKED STRUC is UN and the diait size 
and unit size are computed in the same manner as for | 
regular SfRUCS»s except they are rounded up te modulo 1 
values» not modulo 4 values. The modulo of a PACKED STRUC 
is 1 or that of the field with the hiahest modulos 
whichever is higher. Fields in a PACKED STRUC are 
positioned in the game manner as fields in a reaular STRUC. 
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14.862.¢7 Deta Manpina of PACKED STRUC (Continued) 
| 
EX1 = PACKED STRUC i 
fietdl STRING (4) OF HEX 
CURTS Zmod is Lenath 4 
EX2 = PACKED $TRUC % Offset Lenath | 
field oIT>s é Oel Nol | 
field2 STRUC vA 4.0 | 
field CHAR h 4.0 260 | 
CURTS ( 
CURTS %Z mod 4» Lenath 8 | 
EX’ = PACKED STRUC | 
field BIT» % 020 0.1 | 
CASE tael BOOLEAN vA Ol Qo) 
[s true: 
field2 BIT 4 062 0.1 
OR false: 
field2 BIT vA Oo2 Ool 
ESAC 
CURTS % mod it» Length 1 
1532865 Qsta Maoping Summary 
UNIT DIGIT MACHINE 
TYPE SIZE SIZE TYPE MODULO | 
aon eee earn ii ata aR a aa a red cota a ral aliaea Neee  De alia Bien baer a ae aati 
BOOLEAN i i i l | UN i 1 | 
ose = 56 S's = Sas Fe mee ae em ee a fea a ae eee ee ma a ase eae fe erm eae a 8S ae a Se ae: ee 0 a eo 
BIT t 1 i Ce I ' UN t 0.1 
SS SSS SS SS ee ee ee cee | me ee a ae ee ce gee 0 et ena a | ce fem ee an ee eae ee me ae \ 
CHAR i 1 i 2 i UA t 2 
a Se a ase ae ee Ee em cease eat eg fm a ee Sn "ee me i fo ae a em cee: Se arm an Tem 
PEPOLE ' 1 i 2 i UA i 2 
er cee cceescenee Tetetetetatetatetetetetetatetel Rateteiecketetatetatatebetatekel Ratetetehateted Ratetetetatatetetetetateieteteae 
HEX i 1 | 1 1 UN 4 1 
a teeiateieteieeie atta Nakata lalallala teeta Retelatatatatetetatetatetatabel Ratetetetatatel Reletelatetateletatetettstetate 
ae b {IF a=b=Q0 i i { 
(a >= 0) (THEN j ] UN { 1 
{ i f= unit size { I 
SSS 2S SSS Ss tELSE (See Sse SS a ae Si a oe SS fe Sain eee Se Se 
(a < 0) ! 1 + tloaldt f= unit size + 1 SN 4 1 
i SS a ee acess eee ane | maxt tals tof) fees ses ee ae see [Sea eee | ae a a a eee a ees a 
DISPLAY a..b fri ' ’ i 
(a >=0 ) j = 2 * unit sizel UA 4 2 
emcee nanan enna Te lalatelatatatatetatatatatatell Ratelatatatatatatalatatatataled Ratetatetatatel Satetetatebehetetaletateheeien 
SYMBOLIC >» {1 + lLoald (# oft i i 
ORDERED inames) }= unit size { UN 4 1 
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13.8.3 Ogta Mapping Summary (Continued) 
UNIT DIGIT MACHINE 
TYPE SIZE SIZE TYPE MODULG 
Se 6S SS SS eS ae FSS ee aS ene eee re eee ae ce ia ae a se Sf ie eS iS SS a nae i a ee 
PACKED t# of hex dicitst i j 
SYMBOLIC» tin hex expres $= unit size ' UN 4 1 
ORDERED ision associatedi 4 { 
fin last name { j { 
See ee hnaies a sat euecen (es oamem aes ee some | ee me me os ee mis eee oe | eres ote ome oe | me om woe on ane ao & mr otc eae 
BINARY i# bits / 4 t= unit size j UN | 1 
as oS oe ee a ee jaw ewer este eee jf cee teers ew ete a | et eww a] weno we nea aa 
PTR H 8 i 8 ! UN 4 2 
a a rte a al (-<-s<<s pice ec aah rath eS a oS 2 Sa passes Ss) SS 2S sss see = ee me 
PTR (to paras i J | i 
metric string)t 14 { L4 UN 4 2 
an at Go os aus mm ees te me fen me me te at en mt nt em as a [-- 2 <2 2 oo mam as oe oH ween | mes 2 ae ou om oD fe em oo ca oy eo oes ot weer co mm 
PROC PTR ' 9 { 9 i UN i 2 
A a om Oe eon: Sm fe a ae me a a as, ee ne nm a ae ce a J teeesee J @ 8 eee fet ew om ee ae 
SET {# of elements { t j 
fin base type f= unit size i UN 4 1 
ea ee ae Sea pss e ss eS. s6.S=— feo ese saoee maaan | ean asaaa | ce mae @ me ma oo om oo oe 
TRANSLATE TABLES 389 I 778 { UA 1 1000 
Se me a Sc ae | ee Se Se ie a {wets een eran oo sem aa ex 
STRING COF HEX)Istrina size j= unit size 4 UN $ 1 
COF CHAR/ZEBCOIC)strina size f= 2 * unit sizel UA 4 2 
I ee se meee ae a aay nm me a ae a me [we crews emma | amano e | ew ee en em 
ARRAY i(element size rounded up to § UN Isame as element 
( elemert modulo times 4 of { (type 
ft elements in array) H 1! 
SS SS SiS SS ae ee OI re a a a a a aaa al | ato ea ca Nc ld 
OF BIT ifsee 13.8.2.5) { UN 1 L 
a li de Nak ll | spn axa Sagas w awa er @ { 2A oR TS a OO os eS = eH oD jee ae | Ce i ee ee i) 
STRUC '(see 13.8.72.26) (mod 4) i] UN } 4 
Sc es re ee ae ee Potent eet set cee aes | cme sees eee] enemas aj He ee on 
PACKED STRUC {(see 13.8.2.7) (not mod 4) t UN thichest modulo 
j J lof any field 
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aes aw 


UNIT DIGIT MACHINE 
TYPE SIZE SIZE TYPE MODULG 
Sse eS'e seis sea s'5 [ese sse sets eae [Sree ess See esa as 6 SSS | as S2:3 6 oe Se SS s'e ss 
PACKED 14 of nex dicits! | j 
SYMBOLIC, fin hex expres™ t= unit size { UN { 1 
ORDERED {sion associated! { i 
fin tast name { ! 
waenememnoseses J wer ee ewes eee see | ete sete sane aan) en eseee [| emer esac ce one 
BINARY (#4 bits / 4 1= unit size 1 UN t 1 
Se ee Ss one an frm stew ces eee ses ( cee se reser seme] So emewa | ce seen et eran 
PTR 1 ° 8 | 8 ! UN ‘I 2 
<= 3 6S == SS pow cses sat eee wee | sees esses at ean| se ewoee| cee se wean er see 
PTR (to paras i | { 1 . 
metric string)# 14 { 14 UN 4 2 
aeawewana ae ee waa} eaweeen auc mae an «= i-- asawaanw wamewoa as J were} ee ee ee ee 
PROC PTR | 9 ( 9 ' UN 1 2 
conn memowenawa | te eweee ageecnaeewaewe ferer-- eae eae ome) cme sw en emer ween — we et ee ee 
SET t# of elements { ! 
jin base type t= unit size { UN 4 1 
seonwaneesa swan a | eee een soma ma mone laren ws wee ee me wef oer ewenn|] oe ee ee ee 
TRANSLATE TABLE! 389 1 778 { UA 4 1000 
ean erannecewtea |] oo ee en see re ee {[--- — ee oe san ean porwr ene] ween eaue aw wus = oe om et oe 
STRING COF HEX)Istrina size }= unit size ) UN 1 1 
COF CHAR/EBCOIC)strina size $= 2 * unit sizel UA 1 2 
auaaeenm wees aw ame [es em meee ses aen | ew em ewes esse sem | em een |] ee ewe em een ee eee 
ARRAY $Celement size rounded up to | UN isame as element 
{ element modulo times # of { (type : 
1 elements in array) 1 1 
es eee cers n een  edetnateieatentietetentintetaata betel Rahetekedetetateeteteteateted Bosleietetatetell Mateletattatetetatelabeintataie 
OF BIT it€see 13.8.2.5) \ UN § 1 
ea ae fan eS ee ae pS sss ssee en see eee mea a Se Se a S| Sa oe ee | ae See Se eee ee 
STRUC iCsee 13.8.2.6) (mod 4) { UN j 4 
ae anes wea waa es oe { ee ce ewan wee cea] sem eoec emanates oana{ amen nee] wee eee em e oe ee 
PACKEO STRUC i(see 13.8.2.7) (not mod 4) 1 UN thiaqhest modulo 
| 1 lof any field 
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14 STATEMENTS 


Essential to a computer orooram is acti 


procram must do somethina with its data even 


is the choice of dojna nethinot 


on. That iss a 
if that action 


Statements describe these actions. In the SPRITE lLanauaace 


Set xe eo oS ee ae es me 


system statements are either of the simple 


type or of the iteration type. 


A statement List is a sequence of statements 


separated by cemicolens. The syntax is: 


we 


\ statement__ / 


\__comment / 


Examples: 


s= small + medium? 
mult s= medium * lLarae; 
i s= mediums 4 Note how t 
4 separates 
4% a list. 


Statements in a list are executed sequential 


14.1 STMPLE STATEMENTS 


type selection 


and comments 


~_—— ey 


he semicoton (3) 
these statements in 


ly. 


The simole statements are assertions assianments situation 


exits the null statement» crocedure cent. 


rol statements 


(calls returns and fail (*)") and stordae space oeneration. 


Comments may apnéar in a statement tist. 


14.1.1 ASSERT Statement 


en Te ee ee oe 


The ASSERT statement requires a epecifi 


ed relationship 


among procram variables te be true. The relationship 


should always be true when the ASSERT 
executed. Verification and oroofs of proer 
may utilize assertions. They are espec 
inexpensive tests to provide confidence int 
input to a proaeram. The syntax of the ASSER 
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Assianment statements chanae the values of orogram data. A 
primary determines the destination. (See 19.2.1). The 
syntax of the assianment statement is: 


j destination: 
Newlen primary oo co) eee ee ea oe assignment valuetexor__o 
Ne eS eS \ 
i\_ 0 tts Lost | 
I\ 0 *s= st i 
i‘. v= — i i 
i\o, S= sa i 
ee /\ ' 
\ te= / | 
I 
i 
\ 


where the primary may be any types including structured 
types and file attribute selections. Tts access must be 
read/write. The evaluation order of the variable and the 
expression is undefined. If the destination and assianment 
values are not type equivalents the assianment value is 
coerced to the type of the destination if possible. 


The assianment operators +i=»9 *=i=57 *3=5 /t=9 t= 
gs are abbreviations. For exampler “a +3 

"a c= a+ b*. An assianment operator may cnly be used on 
values for which the operator is defined. They allow code 
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14.1 ASSERT Statement (Continued) 
| 
i 
\ ASSERT. booleanzexpression__ 
\ 
§ 
| 
If evaluation of the exoression yields falser a run=time 
error occurss resultine jin proaram termination. If the 
expression ts trues control passes to the next statementae 
Examoles: 
ASSERT Ki/x2 < 2ey% + QHyG 
ASSERT table Cid <= table itil 
14512 Assianment Statement 
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14.1.2 Assianment Statement (Continued) 


aeneration optimization. 
Examples: | 
H 3 * yCi13 

3= message Cfield index :: field_tenat hi | 


new_messace Cindx 33 Lnath] 3 S 
file .MYUSE:= I0 


14.21.20] Swan Statement | 


The sWap operator =: causes the exchanae of values cf the 
lett and right hand sides. The syntax iss 


\ 
{ left hand side: right hand sides 
\ orimary s=3 orimary 


2 een woe ort ee 82 oo ee ee em Oo ee 2 = OM mem eae mus eet OED aes me one See nh a cd om ama te 


The left and richt hand sides must be tyne eaquivatent = and 
both must have read/write aCCeSSe Subscriptinges 
dereferencinas field selections and substrinaging are | 
permitted on both. | 


Example: i 


1461.3 Situation Statement 


A situation statement provides an exit from the de aroun of 
an UNTIL*“CASE statement (see 14.4.3). It is allowed only 
in this context. The UNTIL=CASE statement declares the 
situation names. The syntax of the situation statement is: 


\ LOGPLEXIT 


_situation name 


\ 
1 
( 


Execution of a situation statement transfers controt out of 
the loop (the UNTIL@=CASE do croup) to the CASE alternative 
Labeled by that situation name. See the example in 1424.62.60 
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14.1.4 Procedure Call Statement 


A procedure call invokes a routine which does not return a 
velue. The routine invoked is the one that is associated 
with the procedure name by the procedure definition. The 
call pagses a particular set cf actual oarameters. 


* A FAILURE clause may cpticnatly follow the call ina 
procedure call statement. 


A orimary of tyne PTR TO PROC may be dereferenced to invoke 
the procedure to which it points. (See 14.5). 


The syntax for procedure calls is: 


procedure’ 


1 

i 

WN tet WGC oat it Bat ASIN oe i a tet a a oe tn ee, 

1 module: / | a, Ti ae tee aeennyers / \ 

t\_ident_ . _/ 1 i /actual params\ f i 

1! procedures: 1 AL € LUNLLexpression_/_. ) _/ f 

bere primary ooo / Nica Bae) ete ee en ee / 1 
Sebi hs 2 seen SES Se eke ee ee oe ea oe et 

/ 

Neo cote ons, wn eee ote le ee ee et ee 
\ / 
NLIFLUUFAILUREC*#) then part___.. FI_/ 

\__EOF / \ else part_/ 


—_—_— om 


The number of actual parameters must be the same as the 
number ‘of formal parameters in the procedure definition. 
[f the oarameter access is read/write (VAR)» the tyne. of 
the actual parameter must be eauivalent to the type of the 
corresoondina formal parameter. If the access jis read-only 
(CUNST)» the actual is coerced to the. formal tyoe if 
necessary and if possible. 


When the access of the formal parameter is readtonlys the 
actual parameter may be an expressicne variable or 
constant. When the access is read/writer the actual 
parameter must alsc have reac/write accesses ie@or be a 
vériable. The defautt is read-only. The order in which 
actual parameters are evaluated is undefined. 


If the call is qualified by a module name»o an intermodule 
call is made. 
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14.1.5 RETURN Statement (Continued) 
statement isé 
\ 
I 
Moe eae RES TUREN: 3a he Se Nt Si Ne Se TAD as tt 
\ / \ 
Noein eta return valuezsexpression____ / { 
t 
{ 
Examples: 
PROC Colc_element OLD_TYPE) RETURNS NEW_TYPE 
VAR new l_element NEW_TYPE> 
RETURN new _element> 
CORPS 
If the type of this new_element return value and the RETURN 
type NEW_TYPE for this orocedure are not eauivalents the 
returned value is automatically coerced to the RETURN tyne 
NEW_TYPE. 
A run-time error occurs if a RETURN statement is not 
executed before control passes to the end of the body of a 
function. 
14.1.6 * FAIL Statement 


The FAIL statement provides recovery frem proarammer 
defined errors. fhe syntax of the FAIL statement is: 


The FAIL setatement sets the poboolean pregram condition 
FAILURE and causes an immediate exit from the orocedure in 
which it is contained. There is no RETURN value. The 
procedure is said to have faited. lf the call of this 
procedure has a FAILURE clauses the FAILURE is handled 
there. Otherwises active procedures continue to fail until 
the FAILURE is handled or the procram entry point fails. 

Latter causes a run time error. fata bleck variables 


e 
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RETURN Statement (Continued) 


ee 


statement is: 


” 
| 
oO 
rt 
c 
5 
=) 
< 
o 
pi 
c 
o 
ees 
o 
x 
o) 
3 
o 
uw 
w 
ai 
° 
=) 
~ 
—---+F7 


. les: 
Exam re: 


A 
PROC Cold_element OLD_TYPE) RETURNS NEW_TYPE 
> VAR new_element NEW_TYPE; 


RETURN new_element; 
CORP» 


If the tyne of this new_element return value and the RETURN 
type NEW_TYPE for this procedure are not equivalent» the 
returned value is automatically coerced to the RETURN type 
NEW_TYPE. 


A run-time error occurs if a RETURN statement is not 
executed before control passes to the end of the body of a 
function. 


FAIL Statement 
The FAIL statement orovides recovery frem orcarammer 
defined errors. The syntax of tne FAIL statement is: 


Dealt —_—— a a a ee ee ee a a we a en ee ee a se es ae ee ee 


The FAIL statement sets the ocolean orearam condition 
FAILURE and causes an immediate exit from the orocedure in 
which it is contained. There is no RETURN value. The 
procedure is said to have failed. If the call of this 
procedure has a FAILURE clause». the FAILURE is handled 
there. Otherwise» active procedures continue to fail until 
the FAILURE is handled or the procram entry point fails. 
The Latter causes a run time error. fata block variables 
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14.1.6 * FAIL Statement (Continued) 
may be used to provide information to the caller about how 
te handle the FAILURE. This information should be set uo 
before the FAIL statement is executed. (See 14.1.4). 


14.1.7 GENERATE Statement 


e 
The GENERATE statement creates an object (variable) which 
may only be referenced through aeprevicusly declared 
pcinter variable. The access of the pcinter must be , 
read/write (VAR) and the access of the object referenced by : 
the pointer must be read/write CWARA. (CONST weccess would.-! 
“prevent the new object from deina initialjized3. The syn t dane 


of the GENERATE statement is: , \ 
see 3 
{ 

| pointers: 
\__GENERATE___EX TERNAL orimary 
\U_LOCAL___/ \ oos inteaer: \ 
 NLLLENGTH __simotle exor__ | 
; ’ \) 
i 


Allecation of storage te be referenced Can be in cne cf two 
places. If LOCAL is specified in the (CENERATE statements 

= the storage area pointed to its aéenef¢ated in temporary 
storage. This 'lLocal' data érea will ’exist until the PROC 
is exited. If EXTERNAL is specified» the storage area 
pcinted to is oaenerated ir storacge that exists for the 
duraticn of the prooram. 


External oointers are ovointers declared in DATA blocks» as. 
pérameters or as STATIC vériables (see 15.4) in PROCS. 
Local pointers are pointers which are declared as  beina 
Local variables to a PROC. External pointers may enly 
pcint to EXTERNAL storage areas while tocal pointers “may 
peint to either EXTERNAL or LOCAL storace areas. 


The LENGTH clause is only apopnlicabdle if the pointer 
references a Carametric strine. The leanoth of the space 
aqenerated for a parametric strine will be the maximum ¢ize 
in its range» unless a LENGTH clause avnpears. In that 
case» the positive inteaer exoression which fotlows the 
werd LENGTH witl be the Lencath of the parametric strings 
provided this lenath is within its range, 
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14.1.8 Null Statement 


The null etatement consists of consecutive statement 
delimiters. Cortrol passes te the next statement. Because 
the null statement ig included in the lanouacer it is 
pessible to treat "s" as if it were a terminator rather 
than a separator. That is» a“;* is possible before a FI» 
ELSE» UD»s CORP» etc. 


14.2 SELECTION STATEMENTS 


The selecticn statements are the IF statement and the CASE 
statement. 


je ereeaey LE Statement 
Tre IF statement allows the selection of one of two 
alternative croups of statements for execution. Selection 
depends on the truth or falsity of a boolean expression. 
ELIF is asyntactic contraction for ELSE IF. A sinale FI 


closes the entire If statements includine ELIFs. The 
control flow diaaram for the execution of the IF statement 
iss 
Ve Se at a ee a oe eee Se ele 
j | ! 
Le Mikey ote Soe { 2d i) Et ce ee | 
1 1 i | t 1] 
| <boolean P-7="> 2o0 "77>! <bootean PRD: ag. SSS 
faxpression>tfalse fexpression> l(false | 
okt ae eee { a ee | | 
truel truel | 
1 t \ 
THEN Vo THEN VL ELSE... boo \ i! 
H ! ! { t H 
i'<qroup 1>1 ! <grouo nz J i<else arouo>t 
Pisa ora bee oh { Nea Ae he Ee 1 Wieeiens eae | 
{ \ { 
{ V ( 
PCS Pee Se Os Kae Sere een esin Vo See 
i] 
| 
FIV 


(the ellinses indicate optional parts). 
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14.1.8 Null Statement 


The null statement consists of consecutive statement 
detimiters. Control passes te the next statement. Because 
the null statement is included in the lanouacey, it is 
pessible to treat "s" as if it were a terminatcr rather 
than a separator. That is» as" jis possible before a FI» 
ELSE» OD» CORP» etc. 


14.2 SELECTION STATEMENTS 


The selection statements are the IF statement and the CASE 
statement. 


14.2.1 ITE Statement 
Tre IF statement allows the selection of | one of twe 
alternative croups of statements for execution. Selection 
depends on the truth or falsity of a boolean expression. 
ELIF is a syntactic Contraction for ELSE IF. A sinale Fi 
closes the entire IF statement» includina ELIFs. The 
control flow diaaram for the execution of the IF statement 


is: 
\ BESESSH OS, ate SaSsSe ease 
| | } 
[i ne epee { PAE Sa ee ows | 
{ | ! { V 
“3 { <boolean Ine) 2.22 “77> 1 <DOOleaNn tm ""> 26. 747 
lexpressions{ifalse texpression>tfalse j 
ee Seve eee { ek eee ee | i] 
truel truel ! 
\ { \ 
THEN VLU THEN... V___ BES. om 2 eS Vise 
| j 1 ! | H 
i<group 131 {| <arouo n> J I<else arouo>! 
| aa reR ep rte=tt { ea enn ree Pee eet | eae en eh ee ee, ! 
\ 1 1 
{ Vy ( 
[cesses ss ive RESe ses sree eet ees BE ne Ree e 


(the ellinses indicate ootionél parts). 
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14.261 TE Statement (Continued) 
The syntax of the IF statement is: 
RO ee Pld ew, Ae 
! / boolean: \ 
No LF oN eeO res Se 1en. then Wart 7 eo Oo ee FI. 
\._else part__/ \ 
i 
| 
where then oart is 
f 
J 
\__THENL UU ustatements_ ooo 
\ 
i 
l 
and else part is 
\ 
i 
Ne SESE oe 2S te ROM Cus oa oe I ee ee ed ee 
\ 
i 
4 
Netice that the delimiter FI eliminates ambicuities of 


associatina the ELSE part in nested IF statements. 
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(Continued) 


IF a = Q 

THEN a 3= bs 

Fis 

IF somethina 

THEN IF ancther_somethina 
THEN action 
FI 

FLSE another_action 

FIs 


The ELIF format below is lLoaically equivalent to the 


riaht half. 


IF x < 0 % JF x 
THEN error; % THEN 
RETURN > vA 
ELIF x = O z ELSE 

THEN zero> Z% 
save? vA 
ELIF x < LO vA 
THEN x s= x = I> % 
iterate; % 
ELSE retry; y/ 
FI vA 
Zz FIs 


Statement 


14.202 


CASE statement allows the 
alternative groups of statements 
of the selector detarmines 
if the selector expression delivers 
is no case alternatives the statemen 
part is executed. if there is 
situations a runztime error will oce 


B2000/73000/4000 
SPRITE REFERENCE 


MANUAL 


19823 


< 0 

error; 

RETURN: 

TF x = 0 

THEN zero; 
save? 

ELSE IF x < 10 
THEN xc=x7135 

iterate; 

ELSE retry; 
FI; 


Fe 


t aroun 
no else 
UP. 
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Statement (Continued) 


tse? CASE 


The controt flow diaoaram for the execution o 


statement i168 


<selecter 


exoressian> out of ranoce 


se)” pe awe, 


eee ee er ew 


Oo aaa Sar ED ee ee a 


—_—— 


i ee ee ao ee ee ae ee ee vee reek eo DE Mod = 


ESAC V 


(the etliosis indicates cpotional parts). 
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f the CASE 


—_— eee 


<else part> 
(optional) 


—_—— — 


The association between selector values and alternative 
groups is made by prefixina the alternative with one or 
mere appropriate values followed by "3", 

These values are called case labels. One or more labels 
may be associated with each alternative. <A aiven label may 
net oe associated with more than one alternative. 

The type of the selector expression must be finite. That 
ise tt must be BOOLEAN» symbolics subranae»s CHARse BIT» HEX» 
BINARY» STRING» SET or mnemonic (e.a. fileeMYUSE). The 
only exception is when an attribute inquiry is used as the 


selector exoression.e Example: CASE port.s 


ECURITYTYPE. In 


this examples the type of selector is mnemonic. 

The case Labels are values of this typos. For examples when 
the selector is of the type symbolic rances the 
alternatives are labeled by rénoe values of that type. If 
necessary» case labels are coerced to the type of the 
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1982 9992 


selector expression. The syntax of the CASE statement iss 


\__CASE____selectoriexpression____ IS. 
\ 
ee ae ree: Bly ERSTE S OPTS TCR eI PF SO ee / 

/ 
Vs ee act na shat ts 5 ee Sant tena 0, 5 eee are Ree a ee 
VE re he Pro oie ot, hh, \ 
' / constant Labels: \ I 


\ \uvalue collection_/_ 2 _statements _/ 


\ else part_/ 


A case label is a constant expression that is 
the selector's type. 


value of 


® if the selector type is ordered» a rance of valués may be 


used for case tabels. 
Examples: 


CASE op_type 


Is plus: result *= a + b 
OR minus? result := a = b 
OR mult: result $= a * pb 
DR div: result 3= a / b 
ELSE cp_lerror 
ESAC3 
14.3 ITERATION STATEMENTS 


Each of the iteration statements prevides a different means 
of terminatinoe a loop. The WHILE statement terminates with 


a boolean pres=tests the O00 UNTIL statement with 

opost=tests the FOR statement after steopina 
rances the FIND statement» with the value soucht 
searchina the whole array or tinked tist 
UNTIL*CASE statement with any one of °§ several 


situations. 


14.64.61 WHILE Statement 


The syntax of the WHILE statement is: 
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14.2301 “WHILE Statement’ (Continued) 
t 


| 
\ _WHILE____beoleantexor_ 00 statements — -00 


While the bcolean exoression is truer the 00 aroup is 
reoeatedly executed. If the expression is initially false» 
the DO oroup is not executed end control oasses to the next 
statement i'n’ sequence. 


Examples: 


WHILE another_transaction 
DU process_transaction 
O03 


Q UNTIL Statement 


14.2062 


IC 


The syntax of the 00 UNTIL statement is: 


\_ D0 statements, oD UNTILL oooleansexpr 


The DO croup is repeatedly executed until the boolean 
expression is true. Since termination is a post*testse the 
DO croup is executed at least once. 
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14.342 00 UNTIL Statement (Continued) 


Examples: 


0G somethina_useful 
in) 
UNTIL end _of_input_file >! fatat_error 


14.3.3 UNTIL °CASE Statement 
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The UNTIL*CASE statement orovides controlled multiple exits 
from a loop. The syntax of the UNTIL*CASE statement is: 


ee an um ee ce me oe mo me as me em 


\__UNTIL__\__situationzid__/__00__statement tist__uD_ 


| /situations\ 


CASE__IS__N__N\ W_Lident__./ 3 ~_statements__ 


/_UESAC_ 


The situation identifiers are declared by and are Local to 


the UNTIL*CASE statement. 


The 00 ocroun js repeatedly executed. 


statement (see 14.21.23) if gnecunteredr control 


a situation 
passes to 


the CASE compcnent labeled by that situation name. Control 


then leaves the UNTIL@“CASE etatement. 
Listed after UNTIL must have an associated 


Every situation 
alternative in 


the CASE part. An alternative may oe labeled by several 
situations. An alternative mey be an emoty statement List. 


UNTIL*CASE statements may be nested»e but 


situation 


names must be unique. If a LOQPLEXIT to a situation of the 
cuter UNTIL*“CASE is encountered in an inner ones control 
passes directly to the cerrespondina alternative of the 


outer statement. 
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1424.3 UNTIL=CASE Statement (Continued) 


Examoless: 


i c:= lwo (table) = 13 
UNTIL dones notfound 


Oo 
} +3= Ls 
token := tablelils 
IF token = “this® 
THEN LOOP_EXIT dene 
FIs 
IF i = upd (table) 
THEN LOOP_LEXIT not fecund 
FI 
00 
CASE 
Is done: write ("4 7="- 1)35 


OR notfound: write (*not found"»s upbttable)); 


ESAC 3 


The FOR statement controls the iteration 
control variable through the specified france 


The syntax of the FOR statement is: 


t control var: 


\__FUR ident OVER - usimple expr .. simple exor 
\ indicant . RANGE 


\ ne statement tist_ 


\_DESCENDING_/ 


The control variable is declared by and 


is tocal 
statement. It has readzonly access. Its tyne 


by steppina a 
of values. 


\ 
1 
j 


to the FUR 
is that of 


the control ranae: scalars erdered or unordered (Ci.@oe 
BODLEANs symbolics subranoce or CHAR). The control range is 
a ranoe of values or a RANGE inauiry. (See 19.2.4). 


The control variable is stepped throuah the control rance. 


if the lower bound is Greater than the upper 
ccntrol ranaoeé is empty and the pO aroun is 

Tf DESCENDING orcurse the control variable has 
value of the range maximum and is decremented; 


it is incremented. If the control ranae 
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(e@odee RANGE inouiry used)» DESCENDING may not appear. The 
00 aroup is executed once for each value in the control 
rance. The centrot variable is chanced and tested before 
each execution cf the 00 group. If the control variable 
dces not exceed its termination value the D0 oaroup is 
executed again. 


Examples: 


FOR 71 OVER 1.2.4 
0G 
sing ("roK®) 
OD? 
sina ("your boat"); 


FOR 1 OVER 0.2.10 DESCENDING 
NU 
countdown (1) 
00> 
blast_off> 


FOR i OVER 1.2.25 


00 


14.3.5 FIND Statement 
* Tre FINO statement provides the ability to search an array 
or a linked List for an element which satisfies a specified 
cendition. (This feature ic not implemented as of the ASR 
6.6 release.) After the searck ts performed» one of the two 
alternate orcupns of Statements is executed denending upen 
whether or not the search was successful. The syntax is: 
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14.4.5 E€IND Statement (Continued) 

{ 

y 

\___FIND___ find pointer spec__ find control 
/ 
NU WHERE UU find conditien__.. 

\ 
Ss Sk ee fee ee De ee ee a / 
/ 
\ THEN statements___FELSE___ statements 
\ 


od oe SD er om oe nom et ed wm ome 


The find pointer _soec clause specifies the 


result pointer. It is either local or external. LOCAL 


means a statement=local variakie (identifier) 


and scope are available onty in the THEN part of the 


statement. LOCAL is the default. &XTERNAL 


externallysdeclared (to the statement) variable (primary) 


which js a pointer to the type of the array's 


(list elements) and which on a non=hit wilt receive the nil 


pcinter. The syntax igs 
find pointer spec 


j pointer: 
\ identifier 


\ NL ._LGCAL___/ pointers: 
primary 


The find controt clause specifies the type of 
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the search to 
oe performed (array or tinked List). The syntax 


is: 
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{ 
i arrays: 
I) (ae aPRA eT RUNES ER a OO EERIE CeCe OO PRES Ose Pe eee INTO_ UL primary 
{ \ index: / \ 
' \LANO_L_identifier_/ j 
{ ! 
\ base pointer: Limit pointer: arrays: { | 
INL LOVER L___Lorimary_ 3. .o.  -L_primary_ ~~. INTG__ primary. | 
\ \_. END __/ \I | 
i 1 
I predecessor pointer: ! | 
, Es eee ee ee te ee WE THe icentifier__ | i | 
a ee et Rt / \ \ 
Betea Sy tell Beh le hth Bl ae BPS ONS bean ae gi dial one sake Piowsacls! / \ 
/ List pointer: I 
\UUFROM UU primary USING__U_tink field oo \ 
\i 
1 
! 
The syntax for Link field is: 
t 
YE rape aoe een tts es ott 
j / field:name: \ 
Ae tea ee Rea Mie in identifier _ Te Pad et a ee | 
S: | 


The first form of find control is used if an array is to be 
searched. An optional index variable may be declared. Its 
type is the same as the array'ts index type. Ite value is 
the index of the element in the array satisfyina the find 
condition. The array primary is an entire array or an 
array slice with variable cr constant oounds. It is the 
array to be searched and must be one-dimensional. 


The second form of the find controt permits the use of 
pcinters to an array's components as the delimiters of the 
FIND statement. The use of the new reserved word ENO 
provides access through and includino the last array 
element. The array primary méy not be an array slice. 


The third form of the find control is used if a Linked tist 
is to be searched. The element pointer identifier defines 
a pointer variable whose type is PTR TO <tist element | 
It points to an element in the List satisfying the | 

| 


types 
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EIND Statement (Continued) 
find condition. <A predecessor pointer may optionally be 
defined. [It is of type PTR TO PTR TO <List element type>. 
It points to the Link field of the element which precedes 
the element satisfyina the find condition. The predecessor 
pointer allows the programmer to delink the found element 
or perform cther manipulations requirina access to the link 
of the found element. If the first element in the tist 
satisfies the find conditioner the predecessor points to the 
List head pointer. 


The list pointer primary is 4 pointer to the first element 
in the List to te searched (the List ig terminated by a nil 
Link field). The tink field clause specifies a list of 
field selections which are toa be applied to the list 
element to oet the field that points to the next element in 
the List (i.e. the Link fieid). 


The find condition specifies the cenditicn which the 
element being searched for must meet. The syntax is: 


find condition 


Vu. OF UL 
VU. oF Ld 
i\.. =< /\ 
t\ 0 <= __/i 

> /t 
\ >= / 


set mask? 
_..find primary _. * _ expression = {} 


eet wot nem ecm om i a en 


If the MIN or MAX form is used» the array/list is searched 
for the smallest or the tLaraest element respectively. If a 
relational form of the fird condition is uséeds the 
array/list ié searched fer an element satisfyina the 
relational condition. If the set intersection form cf the 
find conditicn is usede the specified set mask expression 
is intersected with each find primary until an element is 
found which is either equal or net equal to the empty set 
after the intersection is performed. 
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Currently» onty MIN» < and = are allowed. 


Examples: 
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4 search an arrays setting an index to the element 
FIND rwx_letr AND idx (INTO reserved words [1..num_res_words] 


WHERE rw_otrad.name = id fisstenol 
THEN 


next_sy ?= reserved words Cidx*#1}3.value 


ELSE 
error ("Not a reserved word") 
ONIF 3 


% search an arrays settino a pcinter to an element 
FIND rwontr INTO reserved_words (C1.enum_res_words] 


WHERE rw ipotrd.ename = id Cieilenai 
THEN 

sy := rw_ptrad.value; 
ELSE 

error (*Not a reserved word") 
DNIF > 


* % search a linked List» settina a pointer 
vA to an element 


FIND elem_otr FROM List _head USING controt.rtlintk 
WHERE elem _ptrad.data.strina €132:43 = “wxyz" 


THEN 

convivalue ?= elem_ptrad.data.values 
-ELSE 

conv_value := no_value; 
ONTF > 
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15 DEFINITIONS AND DECLARATIONS 


Definitions set forth meanina and character names us 
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ed for 


constants and variables. Further» definitions associate 
names with blocks cf data and blecks ct ccode (procedures), 


Declarations» on the other handse set forth the 
operations (read ontyr write cntye read and write) t 


tyoe of 
hat can 


be performed on variables by procedures. Oectarations also 


arant to orocedures access to blocks of data. 


Data type (TYPE) names must be defined pricr to the 


ir use 


in definitions and declarations. The onty exceptions are 
the names associated with noredefined data types and the 


referenced tyre cf peinters. 


15.1 CONSTANT DEFINITIONS 


Constant definitions set forth ‘a value to be associated 


with a name (identifier). 


Usine the constant name has the same effect as using the 


véelue in all contexts. The syntax is: 


Om ee Ae ee oe ee ee oe en rom com wom tame Sa ane Nek ach me ch eat mH mn HRA nd R09) wou ee 


_-CONST__\_Lidentifier = _.constiexpr _/ , 


we ee ee on ee me 


This definition is introduced by the reserved words 
followed by an identifier and the identifier's type 


CONS Te 


in some 


cesess followed by an equal sian ¢=) and concluded with 
scme constant value or censtant exoression follcwed by a 


semicoton (3). Where two or more definitions appear 
Lists each definition is separated by a comma (> 


in a 
y's The 


last line of the List terminates with a ecemicolon (3). 


Groupina or sets of constant cefinitions are permiss 
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VF_LNUMB 0099” 

DAY = ORDERED CSune mone tuese- wede 
thurs» fri» sate 

SET_OF_DAY = SET OF mon... fri 


CONST ” GROUP 


— 


‘20° 
‘Max _lenath + 23 


max _ lenath 
max size 


CONST %Z GRUUP 2 


modt header_tile VF_NUMB = 69-e % using indicant 
modl_entry_ file VF NUMB = 90>» 4 using indicant 
medl_extn_file VF _NUMB = 90 + 13 % usinae indicant 


CONST 4 GROUP 3 


d_day DAY = mons 4 using indicant 
d_ day_2 DAY (tues)e %* using Cast 
day_pair SET_LOF_LDAY = Cthures Frit? 4 usina subset 


it 


CONST % GROUP 4 


blank = WN, 
comma T= Mah» 
semiccton ee, 
upnper_case ‘= “AETOUN, 
Lowear_case T= "aeiou"s 
numeric (= “QL2S5% 
alpha ‘= upper _case + Lower_cases 
alphanumeric = alpha + numerics 
° 
oP 


The indicant type name need not be used when the data type 
of the constant identifier is the same as the constant 
exoression (Group 1 and Croup 4). 


Irn cases here the censtant expressicn's type could be 
ambiaguouse the indicant type name is required to jnterpret 
the expression (Group 2 and 4). When the indicant type 
name is oresents the result velue of the expression sets 


coerced (Can implicit conversion) to the type specifieds if 
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1561 CONSTANT DEFINITIONS (Continued) 


pessible. The effect of havinae the indicant type name 
present can alternately be achieved by usine a cast (Group 
3) in the expressicn. 


Censtant identifiers may o6e defined in terns of other 
previously defined constant identifiers (Group 4); 


Constant definitions may be coded in MID descriptions er in 
the proaram modules themselves. When these definitions are 
coded in the MIO» the scone cf the constant identifier is 
the MID and all prcaram medutes in the KNOWS list. if 
these definitions are coded in a program modules put 
cutside of the procedures in the proacram modules the 
ccnstant identifier's scone is the entire proocram module. 


When the definiticn is coded inside a particular procedure 
of a proerar modules the scope is Limited . to that 
procedure. 


15.2 TYPE OEFINITIONS 


The type definition facility attows the proorammer to 
create data types beyond those already predefined’ in the 
SPRITE lLancuace system. A type definition associates a 
name €indicant) with a type descrintion. Wherever: a type 
irdicant mame appears the effect is the same as thouch the 
tyoe definition were useds except for separately deseribed 
structures which are not compatible even if their 
descriptiens match exactly. (See 132%3.%)6 The syntax is: 


A PY PEN indicant name__. = ___type ey ; 
\_oarametric tyoe definitions_/ { 


This definition statement is introduced with the reserved 
werd» TYPE» fallowed by any valid type indicant names 


fellowed by an equal sian and a tyne descriptor. TYPE 
definitions apopearinec in ae tlist are separated dy commas 
(os). 


The Last definition in the List is terminated with a 
semicolon (3). Groupina or sets of tyne definitions are 
permissible. 
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15.62 TYPE DEFINITIONS (Continued) 
Examples 
TYPE 
VF_NUMB = 0.2299» 
VFL REC _NUM = OeeGS999GR 
VF_ PAGE = VF _NUMB; 


This example defines new data types called 


VE _NUMB> 


VF_REC_NUM and VF_PAGE. The first definition 


VF_NUM to be the set of all pcsitive intecoers 


in the 


defines 


rance 


0-to 99. The second defines VF_REC_NUM to be all positive 
integers in the range 0 te 99999. The third makes u 
new type 


convenience in the SPRITE tLancouage of definine a 


in terms of a type oreviously defined. 


ce of a 


TYPE definitions may be coded in MID descriptions or in the 
program modules. The scope of knowledae about the type 
indicant names foltow the same rutes as that of constant 


identifier names. 


PARAMETRIC TYPE DEFINITIONS 


as 
Ww 
e 

tm 


A parametric type definition specifies a family of related 


déta types. Each type in the family has the 
and method cf organizations but the ‘'size!? 


each type may differ by allowinoa the 


‘carameterized* in the parametric type definition. 


same base type 
attribute of 
e1ze 


to pe 


Parametric type definitions can be used only with STRING or 


ARRAY (*) as the method of organization. The 


par 


ametric 


STRING type constructcr size parameter controls the tenath 
of strinas whose type is derived from the parametric 


The parametric ARRAY type constructor (*) 


controls the uopner bound of the arrays whose 


derived from the parametric type. 
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The syntax for parametric type vart is: 
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! 
1 
\_u_indicant__°( 


param:ident 


lower bounds 


ARRAY. C€ ___censtant__ 2.6 


For the parametric STRING c 
subranae must be an 
ARRAY constructors 
compatible with 


finite scalar type. 
Examples: 


sum_vector 


inteaer rénce type. 
the loker Ftound constant 
the upper bound subranaes 


upper bounds: 


et na 


w..fubrandqe_ ) _. = _. 
, \ 
ered a eet ee Sk ee f 
Mgr csest sett Meh fhe te eek rn ht! 
\ \ elementistrina / \ 
\_QF NU base type___/ ! 
! 
param: element: | 
2c, VERN FP cc HUF yes |) 
\ f° \l 
{ 


onstructors the uoper bound 
For the parametric 

must bé type 
which must be a 


= ARRAY Ci.ubnds OF Qo ol AGO>s 


PROC (vector VECTOR) RETURNS 0..10000000003 


VAR sum 0.-1000000000 
FOR 1 GVER 1..upbivec 
00 
sum += vector fi 
OD» 
RETURN 
CORPs 


sums 


fill_buffer 
PROC ¢Ctext LINE); 
SHARES bufferc-datas 


buffer 
Current #352 
CORPS: 


Ccurrentilenct 
Lencth (t 


type indicant 
of a pointer 


A parametric 
reference type 


2= Qs 


tor) 


Vs 


TYPE LINE €(n 12-142) = STRING (Cn) OF CHARS 


Za data block containina buffer 


Zand current tenath 
h (text), 


extys 
may be used only as the 
or the type of a fermat 
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15.3 PARAMETRIC TYPE OEFINITIONS (Continued) 
pérameter. 
1504 VARTABLE DECLARATIONS 


A data tyne in the SPRITE tanouage system may 
referenced by a type definition or more directt 
by a variable declaration. 


Every variable coded inside a procedure must be 
a variable declaration. This declarations 
declarations and definitions» must textually 
use of the variable. 


A variable declaration associates an identifier 
with a data type... The syntax of a variable declt 


eee ee ee ee eee ee oS oe ee a ee ee ee ee ee ee ee ee ee 


/ \ 
\_varéident,/_tyoe 


The reserved werd VAR ‘heads this dectaration fe 
veritable name Cidentifiér) and the variablets 
numper -of variables of the same type may be s 
commas and declared with a sinole type indicant 
declaration is terminated with a semicclon (3). 
or cets of variable definitions are permissible. 


Tre reserved word STATIC may optionally fell 
indicant name where the oproorammer desires a 
allocation and initialization of the variables. 
veriables (default) are allocated and initiatize 
activation of their home orocedure. 


The lifetime of STATIC variables is the execut 
the oroaram. The tifetime of non=static 
veriables begins and ends with each execution of 
procedure. 


Where the proorammer desires to initialize varia 
declaraticnes a censtant exoression may be 

expression follors the TYPE indicant name and i 
by the assiaonment operator (3=), Variables may 


F ; ae ie 
values in thetr associated TYPE. 
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be either 
y described 


declared jin 
Like other 
precede any 


(variable) 
aration is: 


Llowed by a 
TYPE. Any 
eparated by 
name. This 

Grouping 


cw the TYPE 
one time 
Non=static 
d upon each 


ien time cf 
(default) 
their home 


bles in the 
used. This 
s opreceded 

assume any 
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15.4 VARTABLE DECLARATIONS (Continued) 
Examole: 


convert_data_bloctk . | 
PROC 
SHARES state_info; 

VAR new_tokene next_tokens extra_token ICM_TOKENS; 


Tee EOF condition signals endeof-file detected. It is only 
valid for the following: os 7s ~=©6CORP 


convert_block_table 


PROC; 
SHARES state_info> 
VAR new_ref ADDRESS_REF » 


old token OLOD_TOKEN» 
repl token REPL_TUKEN; 


CORP 


cet word 

PROC > 

VAR tinum 0.2.72} 
o? 


CORP 
convert _ code 


PROC > 
VAR new _tyoe CODE_TOKEN STATIC t= inline data; | 


15.5 SHARES DECLARATION 


The facility for eharina data within a DATA block and the | 
"files® within FILE» PORT and NSP blocks amono procedures 
is called a SHARES declaration. This declaration allows a 
procedure to access variables within any block definition. 
(See 18). | 
| 
| 
| 


The SHARES declaration is coded within a procedure 
definition. (See 19.1). In addition to orantina a 
procedure access to a olock or blocks of datas the SHARES 


declaration can restrict (by usine CUNST) a procedure's 
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SPRITE REFERENCE MANUAL 


operations to ently be able to read the variables in 
block. By usina a VAR restrictions a procedure is 
to read and inedify the values of variables in a DAYA block. 


The syntax of the SHARES declération is: 


\ 
\ 
i / 
\ 


__SAARES__N block namesidentifier 


\_CONST_/ 
\_VAR_/ 


This declaration is introduced with the 


SHARES tollored by the block name and terminated 
semicolon(;). The bleck name may be opticnally op 
with the reserved word CONST to prevent modification of the 


data block's variables. The reserved 


ontionally precede the data block name where 


word V 


unres 


CREAD/WRITE) access to the variables is desired. 


the default access afforded to procedures. 


Where a procedure is to SHARE more than one 


DATA 


L984 9992 


a DATA 
allowed 


~_~_— — = 


reserved word 


with a 
receded 


AR may 


tricted 
VAR is 


btLocks 


each block specified in the declaration is separated by a 


comma €»). The Last block epecified is 
semicolon (7). 


followed 


by a 


When a DATA block is SHAREd amcnost several procedurese the 
scooe of the variables in the DATA block encompasses every 
precedure that SHARES the DATA block. These variables have 
a scone more clobal than those variables declared local to 


an individual procedure. 
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Examples: 


icm_utility 
MDD 


tcken_info 
DATA 
word 
detim 


scan_infe 
DATA 
chuf 
cotr 
eof 


names 
DATA 
old _icme 
old_pack» 
new_icme 
new_pack 
Lib_name 


aet_word 
PROCS 


SHARES token_infoe 


CORP: 


1984 9992 


B2000/73000/4000 
SPRITE REFERENCE MANUAL 


Rev. A 


PAGE 


PRODUCT SPECIFICATION 


(Continued) 


NAME» 
BOOLEANS 


STRING(8O) 3= “K"%o5 
1.0/8 >= je 
BOOLEAN <= 


FILE_NAMEs 


NAME 3 


CONST scan_infos 


process commands 


PRUC> 
SHARES 


skin blanks 
PROC ; 
SHARES 


CORP> 


DUM 


token_inforenames; 


scan_infos 
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15.5 SHARES DECLARATION (Continued) 


Note that the orocedure 'aet_word’ has restricted access to 
the variables in DATA block "scan_info'. This restricted 


access 


prohibits mcedificatien cf the 


variables in ‘scan_info't. 


initial values of the 
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16 PROCEDURES 


Procedures specify blocks of code and their associated data 
which can be invoked froin other points in the prooram. A 
procedure is cemposed cf zero cr more constant definitionss 
type definitions» shares declarations» variable 
declarationse and executable statements. 


Procedures can occur onty within the inherently taraer 
scoove of a oprocram module. Procedures serve as entry 
pcints inte proaqram mocules. Consequently» the start of 
every SPRITE system procram is via entry into a procedure 
in a croagram module. 


All orocedures are invoked by a procedure call statement» 
except tne orcaram entry point procedure, This procedure 
is defined by an ENTRY desianation in the MID component of 
the prooram. It is automaticatly actuated when the procram 
is executed. 


Recursive procedures are permissibles i.e.» one whose code 
includes a direct or indirect call to itself. Direct calis 
are those mace from within its Line of code to itself, 
Indirect calls are when a orocedure ‘"A® calls some 
procedure "B* who in turn calls procedure ‘A’, 


Procedure calls may be tw&ade to procedures within other 
modules. This is known as an intermodule call. Howevere 
this tyoe of call must be formally declared in the 
prooram's MID component. 


Statements inside oprecedures are executed seauentialtly 
unless the vath of execution is chanaed by seme conditicnal 
Cest. 


A precedure may be exited by the execution of its ltast 
statement» or by the execution of a RETURN or FAILUREC#) 
statement. 


A oprecedure- that returns a value 1s referred to as a 
"function't, Procedures may atso name parameters. 


Procedure parameters provide a communtcation channel 
between the caller and a2 called precedure. Actuat 
oérameters provided by the caller are bound to formal 
péerameters declared in the called oprocedure. The data 
types of actual and formal parameters must match, The 
called procedure access to its parameters may be restricted 
to read-only (CONST) access. 


“THE INFORMATION CONTAINED IN THIS DOCUMENT IS CONFIDENTIAL AND PROPRIETARY TO BURROUGHS 
CORPORATION AND iS NOT TO BE DISCLOSED TO ANYONE OUTSIDE OF BURROUGHS CORPORATION WITHOUT 


THE PRIOR WRITTEN RELEASE FROM THE PATENT DIVISION OF BURROUGHS CORPORATION" PAS 19681 REV 6+73 


B2000/300074000 


Burroughs Corporation B) 
SPRITE REFERENCE 


COMPUTER SYSTEMS GROUP 
PASADENA PLANT 


COMPANY CONFIDENTIAL PRODUCT 


16 PRUCEDURES (Cont inued) 
Alt names defined in a procedure ar 
procedure. These names include: conet 
names» and indicant names. These nam 
is referred to as oproceduremlocal. H 
names may be defined differently in oth 


The Lifetime of most names defined j 
the execution time of the orccedure. 
STATIC in variable (VAR) declérations a 


Loe1 PROCEDURE DEFINITIONS 


The function of a procecure definit io 
identifier with a block of code and it 
definitions are coded within procram 
only mandatory component in a procoram m 
of a procedure definition is: 


| 
1 
\__proc name: ident __PROC__| 


\ 
taal cee MOOT Bs ONAN ole hn Be ee ts / 
/ 
Negra etait een eas hae SS ree te So 
\u_parameters__=/ \__RETURNS__type_ 
Ow hn ies eates BD een een sae ath pt Dest * Sal ; 
{ / \ 7 
NTs ge tee Nee et dee Fr) SO EE a ket 
\i__const def oo td \_ stata 
1\__type def__ / 
Wo var dec lo fi 
IN _ shares dec__/| 
\_~__comment / 
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SPECIFICATION 


e known only in that 
ant namess variable 
es have a scope that 
Cwéevers these same 
er procedures. 


nside a procedure is 


Variables dectared 
re an exception. 


n is te associate an 


s data. Procedure 
modules. It is the 
odule. The syntax 
eee eee 
/ \ 
( 
se Pte tet / 
ee Ve \ 
/ CORP 


{ 
— eee 
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16 PROCEDURES (Continued) 


ee ee 


Alt names defined in a procedure are known only in that 
procedure. These names inctude: constant names» variable 
names» and indicant names. These names have a scope that 
is referred to as oproceaurewmlocal. However» these same 
names may be defined differently in other procedures. 


The Lifetime of most names defined inside a procedure is 
the execution time of the orccedure. Variables declared 
STATIC in variable (VAR) declérations are an exception. 


16.1 PROCEDURE DEFINITIONS 


The function of a proceocure definition is te asscciate an 
identifier with a block of code and its data. Procedure 
‘definitions are coded within program medules. It is the 
only mandatory component in a prooram module. The syntax 
of a procedure definition is: 


7 ia t \ 
! 
\ L_proc name:ident__PROC_ 


— 


\ 
al rad tas cba a est al aS NS SE Ss / 

/ 

Nitti Be Dain A ee dN ag he he dnt Caen 
\NU_parameters__/ \__RETURNS_ _type__/ \ 

t 
Be La hehe les ee aa at ot Dates a ee 8 / 

UO a i Sy a sy Be eg AROS ae ee 

i / \ 4 \ 

NN eer tn eet he, FING So on Bee: | ne eee ae CORP_ 
\U__const def > _f _N\UUstatement_~ / \_L 3 _/ \ 
I\__tyoe def___ / { 
WWo_lvar deci. /i| ! 
'\__shares dec__/l { 
\_U_U_comment loo / 1 

| 
! 
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14.1.6 * FAIL Statement (Continued) 
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may be used to provide information to the caller about how 
tc handle the FAILURE. This information snould be -set uo 


vefore the FAIL statement is executed. tSes 


14.1.7 GENERATE Statement 


a 


14.1.4). 


The CENERATE statement creates an object (variable) whicn 
may only be referenced through a previously declared 
opcinter variaole. The access af the pointer must be 


read/write (VAR) and the access of the object 


the pointer must be read/write (WARA, (CONST 


referenced by 
sccess would 


prevent the new cbject from beino initialized). The syntaneor" 


of the GENERATE statement iss 


f 
\ ; pointers 
VU _GENERATE EXTERNAL orimary._ 


a? rao va ae ere 


\__LOCAL___/ \ 


Allocation of stGcraoge te be referenced Can be 


rina 8 me ON te) BEY cm ge A YN 


in one cf two 


olaces. Tf LOCAL is specified in the CENERATE statement» 


the storage area ocinted to is otnerated- 
storace. This tlocal® data égrea witht exist 
is exited. If EXTERNAL is specitieds the 
opcinted to is aenerated ir storace that 
duraticn of the proaram. 


in témporary 
until the PROC 
storage area 
exists for the 


External voointers are oacinters declared in DATA blockses as 
pérameters or as STATIC vériables (see 15.4) in PROCe, 
Local pointers are pointers which are declared as beinae 
tccal variables to a PROC. External pointers may only 


pcint to EXTERNAL storage areas while local 


pointers may 


pcint to either EXTERNAL or LOCAL storace areas. 


The LENGTH clause is only apolicable if 


references a fcarametric strine. The lanoth 


the peirnter 
of the space 


generated fcr a parametric strinc will be the maximum ¢ize 
in its ranges unless a LENGTH clause anpears, In that 


case» the opocsitive intecer exoression whi 


ch fellows the 


werd LENGTH will be the Lenath of the parametric strings 


orovided this lLencth is within its rance, 
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lool PROCEDURE DEFINITIONS «Continued? 


where the syntax of the parameters is: 


j 
t 
i 
Vo € (NU Lident o/ type__/ y 


OR OONE TE 7 SUNTV Ly 
\LAVAR___/ 


“VALUE 7 


— ae oe Oy 


Tris definition is introduced with a procedure name. This 
name jig an identifier. The reserved word PROC fotlews. 
The proarammer may ootionally include a formal parameter 
List. This fermal parameter List contains the identifier 
name of the arecument variadles ite access modes and an 
octional UNIV desianation and the argument variable'ts TYPE. 


Although orocedures do not necessarily have to have a 
pérameter List» the raserved word PROC may be followed by a 
RETURNS type desianation. The RETURNS type reoresents the 
TYPE of a solution value comouted tn the procedure to be 
returned to the procedure callina statement. The type of 
the solution value may be any establisned indicant tyoe. 


16.2 PARAMETERS 


Tre orocedure aefiniticn incluces a descrioticn of the 
orocedurets formal parameters» if any. At the orocedure 
call these formal parameters ere bound to actual parameters 

* orovided by the calline orocedure. The formal~to7actual 
binding altlews the artual parameter to be accessed throuonh 
the name of the formal. Tne access may be "read-only" ar 
"read/write". 


16.261 Access 
The keyword CONST orecedine the parameter tyne soecifies 
readonly access which is the default access. When CONST 
is usede the types ‘of the actual and formal oarameters must 
be ccomoatioble (see 12.7). When there 1s readonly access 
throuch a format to an actual parametere there may also ode 
read/write access to the same variable (i.@.5 via data 
bleck yariable names or réad=write formal parameter names). 
If this is the case ana the read/write access path is used 
to change tre value then the value accessed throuah the 
readonly formal parameter may or may not be chanced (i.@ae 
“jt is undefined in the lLargquace?). In general» there may be 


urexpected results whenever there is more than one access 
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16.1 PROCEDURE OEFINITIONS (Continued) 


where the syntax of the parameters jis: 


| 
{ saa OSS ee el EN Ae ee a ee 
| / param: \ \ 
Nic Mg Nee a8 ee ee ae ee he 23): a a 
\___CONST___/ \L_UNIV__/ \ 
\UU_UVAR___ 7 { 
\_VALUE_/ i 
1 


This definition is introduced with a procedure name. This 
name is an identifier. The reserved word PROC follows. 
The programmer may optionally include a formal parameter 
List. This fermal parameter List contains the identifier 
neme cof the aroument variadle, its access modes and an 
ortional UNIV desianation and the araument variable's TYPE, 


- Although orocedures do not necessarily have to have a 
pérameter lists» the reserved word PROC may be followed by a 
RETURNS type desianatian. The RETURNS type reorecents the 
TYPE of a sotution value comouted in the procedure to 0obe 
returned to the procedure callina statement. The type of 
the solution value may be any establisned indicant tyoe. 


16.2 PARAMETERS 


Tre orocedure definiticn incluces a descrioticn of the 

orocedurets formal oarameters» if any. At the procedure 

call these formal parameters ere bound to actual varameters 
: orovided by the calline orocedure. The formatl-toractual 
binding allcws the actual parameter tc be accessed throuoh 
the name of the formal. The eccess may be “read=only” or 
"read/write"™. . 


16.2.1 Access 
The keyword CONST orecedina the parameter type specifies 
réead~only access which is the default access. When CONST 
is used» the types ‘of the actual and formal poarameters must 
be compatible (see 12.7). When there is read=only access 
throuch a formal to an actual parameter» there may also 08 
read/write access to the same variable (i.e.» via data 
block variable names or read-write formal parameter names). 
If this is the case and the read/write access path is used 
to change tre value then the value accessed thrcuan the 
read-only formal parameter may or may not be chanced (1.28. 
it ig undefined in the lLarauace). In general» there may bé. 


urexpected results whenever there is more than one access 
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1L6He2el Access (Continued) 


path to a aiven variable. 


The keyword VAR snecifies read/write access 
pérameter. When VAR is usedse the types of the 


SPRITE REFERENCE MANUAL 


to the actual 


actual and 


formal parameters must be equivatent (see 1%.7) 


fernwmal parameter's tyoe is not naremetric) and 


parameter must be a variable. 


the 


(if the 
actual 


Péerameters may be passed Dy values as well as reference. 


To specify a value parameters» use "VALUE" 


“CONST® or “VAR® in tne parameter declaration. 


keyword VALUE soecifies read/write access 


ol 


ace of 


Use cf the 


the 


formal 


perameter but read=enly access to the actual voarameter, 
That is» it Lets you chance tre formal oarameter 
lecal variable without affettine the actual parameter. 


Wihen VALUE is used» the types” of the actual 


and 


like a 


formal 


péerameters must be compatible. The tyoe of the parameter 


must be any non=parametric tyre with a total 


16.202 Universal Parameters 


oe ee um eee SS oe oe eae ee es Ae ee 


size 
digits (or 100 characters for nonmhex strinos). 


of 100 


Universal parameters are usec to construct oceneral puroose 
thouch not 


orocedures for a wide class of data by relaxinas 
eliminatinage type checkina between actual 
parameters. When type checkino is realaxeds 


and 


the 


parameter may be ot any type so lona as the lLenath j 
than or equal to that of the formal parameter and its 
modulo reouirement ts Greater than or equal to that of the 


fermal parameter. 


A universal parameter iS specified by 
pérameter type by the keyword UNIV in 


the procedure. 


Universal parameters may only be used 


formal 
actual 
S less 


precedino the 


procedure 
definition. If tne orocedure is a modute entry pooints the 
keyword UNIV must also appear in the MID specification of 


with 


oé@rameters of a parametric strina tyoe (see 15.3). 
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16.2.1 Access (Continued) 


path to a aiven variable. 


The keyword VAR specifies read/write access to the actual 
pérameter. When VAR is used» the types of the actual and 
formal parameters must be equivalent (see 13.7) (if tne 
fermal oarameter's tyoe is not parametric) and the actual 
parameter must be a variable. 


Pérameters may be passed vy value» as well as reference. 


\ To specify a value parameters» use "VALUE" in place of 
‘ "CONST" or "VAR" in the parameter declaration. Use cf the 
\ keyword VALUE specifies read/write access to the format 


parameter but read-cnly access to the actual oarameter. 
That is» it Lets you chance the formal oarameter Like a 
tecal variable without affectina the actual carameter. 
When VALUE is used» the types of the actual and formal 
parameters must be comoatibdle. The type of the parameter 
must be any nontparametric tyre with a total size of 100 
digits (or 100 characters for nonshex strinas), 


16.2.2 Universal Parameters 
Universal parameters are usec to ccnstruct ceneral ourocse 
orocedures for a wide class of data by relaxina» thouch not 
eliminating» type checkina between actual and format 
pérameters. When type checkino is relaxed» the actual 
parameter may be of any tyoe so Lono as tne Lenath is less 
than or equal to that of the formal parameter ana its 
mcduto reauirement is areater than or equal te that of the 
fermal parameter. 


A universat parameter is specified ty orecedino the 
pérameter type by the keyword UNIV in the erccedurs 
definition. If the orocedure is a moduieé entry points the 


keyword UNIV must also aonear in the MID soecification ot 
the procedure. 


Universal parameters may onty be used with formal 
p@rameters of a parametric strina tyoe (see 15.2). 
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16.3 FORWARD OEFINITIOGNS 


A forward definition vermits @ procedure call 
a procedure before the definition of the cal 
has appeared. [ts syntax igs; 


t 
{ 
\ proc namezident PROC 


\__FORWARD__ 3 
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1. A macro if a safe and useful implementaticn 


MANUAL 


PRUCs". No NTR/EXT code is aenerated. 


REV. A 


cf 


2. the MACRO definition: resembles that of a PROC: 


<macro_ident> 
MACRO 
<apntional pérameters> 


<optional declarations> 


<statements> 
URCAMs 


tal 


VALUE» RETURNS» UNIV and parametric 


disallowed. 


& YVYPEs CONST» SHARES and VAR are 


5. Scope rules are identical to those 
applied to a PROC. occurring at the 


point in the ccompilation. 


6. A MACRO definition must orecede its 


such constructs as FORWARD» PTKs 


MACROS. 


7. Although there can be ne intermodule 


allowed uw 
foilcwina restrictions STATIC is disallowed. 


use. 


TU, or 


which 
same declaration 


KO 
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"inline 


e Parameters are-allowed with the followine restricticn: 
strinas are 


ith the 


uld be 


There are no 


MIO-defined 


references to 


MACROS» one may use INCLUDE to copy a MACRO definition 


from one module into another. 


8. The MACRU cath» cr invecations tooks 
with the usual parameter checkino enforced. 


9. Invocations may be nested; 1.8. 
another. Recursive invocations are 


like 


1G. RETURN statement is disallowed in MACRO, 
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17 IMPLEMENTATION QE MACRO EACILITY (Continued) 


Soe oe SS ee ee eo eee as a ae ee pe — 


11. Example: 


datum 0..999999 t= Q3 


macra 
MACRG ¢9 CONST 0 2. 10)3 
SHARES data? 

Ir p 7= 0 


THEN 
datum +t:= o- 
FIs; 
ORCAM > 
proc 
PROC; 


call random (js 
macro (js 
4 becomes IF j 7= 0 


vA THEN 
vA datum +3= j3 
h Fils 
macro (5); 

4 becomes IF 5 7= 0 
4 THEN 
h datum +3= 53 
4 FIs 

CURP> 
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18 BLOCK NEEINITIONS 
L601 DATA DEFINITIONS 


The function of the DATA definition is to 
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associate an 


identifier with a oroun or block of variables. This 
definition is coded jin the MIC component of a orearam er in 


a prooram module. In a procram modules this 


coded outside any cf the module's procedures. 


The syntax of the OATA definition is: 


definition is 


\___block namezidentifier__. DATA___ 
\ 
oer heh heath tive t Thar, ot th _f 
| TNS er aR Bi chu ee doi ys ac Bap be Pats, Me Bal pty ct oe Mie ate fe nh eee a Ey 
i of \ \ 
\u_u\U_varticentifier./._tyce_ Beets ee /_. 
NUL f= Uo constsexpr__/ \ 
4 
j 
This definition is coded with the name the block 


fcllowed by the reserved word DATA. Fotlowine this is the 
veriable names its data type and an opticnal constant 


expression. The constant expression is used to 


the variable. 


initialize 


The -word "filler® 1s an identifier denotine an unused 


field. Its use is discuéesed under Structurese 


DATA block variables are STATIC’ they are 


L¥.3.3. 


created and 


initialized once. Their. Lifetime is the execution time of 


the program no matter where the DATA block is 


coded. 


Tre DATA block (the block name and its variables) has no 
implicit scope. Scope must be exolicitly established for 


the DATA bloct. 


A SHARES declération must be coded in each module procedure 


that wishes tc access the DATA block. In this 


Casep the 


scope of the PATA block is every mcdute that KNOWS ang 


module procedure that SHARES tne DATA block. 


Lf the DATA olock is ccded in a modules 


a SHARES 


declaration must be coced in each procedure that is te 


access the DATA block. Heres the scope of the 
is every procedure that SHARES the DATA block. 
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18.1 OATA DEFINITIONS (Continued) 


Deta blocks are not coded in procedures. 


The variable 


declaration VAR is used for this purnose (see 15.4). 


Examples: 


icm_mid 


PROG 4 This examole illustrates creation 
% OATA btocks tin a MIN component 


{icm_ utility} KNOWS 
token_info 
DATA 
word NAME » 
delim BOOLEAR + 


Cicm utility? KNOWS 
ecan_info 


cbouf STRINECCB8O) t= 74% 5 
cotr lef 3= Le 
eof BOULEAN s= false; 
 ficmlutility} KNOWS 
names 
DATA 
old icme 
old pack» 
new _ icme 
new_pack FILE NAME> 
Lib_name NAME > 
The examples in Section 15.5 (SHARES 


DECLARATIONS) 


illustrate these same DATA blocks as they would appear 


inside the module portion of 4 program. 


18.2 FILE DEFINITIONS 


A file definition associates an identifier witn a croup” of 


files. This definition may appear in the 


MID of the 


program or in an individual module outside all vorocedures. 


The syntax is: 


file definition 
i ? 
t file block names / 


\ identifier FILE \uU file description___/ 
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18.2 FILE DEFINITIONS (Continued) 


file description 
| 


i filenames 
NB ts! identifier__ _. file attr spec__ OF ooo tyoe__ 
Nea ca oh, \ 
( 
{ 
file attr spec 
i ay Datei ries Se i ae, neh AR Saee SRE os kt ee ele Rte 
i. / \ 
\U ULL C ~ooUNU attribute name_~ | = _~_attribute value __/.. J _. 
Ne eect ts hee ee a tere a / \ 
| 
| 
The file attribute specification eerves to set up 


irformation about the -togical and physical files. The 
attribute names and their values are described in Apnendix 
C - File Attributes. 


File descriptions are static? they are created once and 
exist throuchout the lifetime of the program. A civen file 
description miaht be chanoed to descrive several different 
files durina crearam execution. 


The scope of the file block is any module that appears in 
its «NOWS List €see 12.3)° if declared in the MID. or the 
procedures cf the module» if declared in the module. The 
scope of the files in ‘the file block includes every 
procedure that SHARES the olock. 


Examoles: 


read_and_print_ files 
FILE 
reader ({MYUSE = IN» KIND = READER] 
OF CARD» 
printer ¢(MYUSE = QUT» KIND = PRINTER] 
OF PRINT_LINE> 


work file 
FILE 
work CMYUSE= Ol» KIND = OISKe 
BLOCKSIZE = 100 * WORK_RECORO.SIZE> 
BUFFERS = 22 ACCESSMODE = 
RANDOM» PRUTECTIUN = TEMPORARYT 
QF WORK _ RECORD: 
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FILE ATTRIBUTES 


Below is a list of the currently 
attributes and their ranae of values. 

cén be used to set the file attributes 
for additional infcrmation concernina the 
of file attributes» refer to CSG Fil 
195572926. 

Attribute Values 

ACCESSMODE SEQUENTIAL or RANDOM 
AREAS 0.2.99 (0 = 100) 

AREAS IZE 1.699999G99 


AUTOPRINT 
BACKUPKIND 


BACKUPPERMITTED 


BLOCK 
+ BLOCKSIZE 


+ BUFFERS 
CREAT TONDATE 
CURRENTFBLOCK 
CURRENTRECURD 
CYCLE 
DIRECTION 
EXTMUDE 


FAMILYNAME 
FILENAME 
FILESTATUS 
FORCETU 
FORMS 
TNTNAME 


KINO 


LABEL 
LASTRECORD 

+ MAXRECSIZE 
MYUSE 
NEXTRECORD 


FILE DEFINITIONS 


82000/2000/4000 
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PRODUCT 


(Continued) 


AND THEIR VALUES 


(number of records) 
TRUE or FALSE 

DIiSKe DISKPACK» 
DUNTCARE or TAPE 
OONTBACKUPs MUSTBACKUP 
or ODONTCARE 
022699999999 

1226999999 Cin diaits) 


0.69 C€actual buffers1) 
DISPLAY 0.295999 
12.0.999999 

1.249996 

DISPLAY 0..99 

FORWARD or REVERSE 


EBCNIC Conly for output 
punch files) 

STRING (6) 

STRING (6) 


OPEN or CLOSED 
TRUE or FALSE 
TRUE or FALSE 


1983 9992 


MANUAL 


rev. A 116 


SPECIFICATION 


PAGE 


implemented file 


Constant exoressicns 


where applicable, 
meanina and usage 
¢ Handlina Standard 


Default 
SEQUENTIAL 
20 

1000 


FALSE 
<system default> 


DONTCARE 


(Read Only) 
Nepands on 
record size 

0 ¢ => 1 buffer) 
(Read Onty) 
(Read Only) 
(Read Only) 

O41 

FORWARD 

<Normal> 


<nene> 
<truncated filename> 
(Read Onty) 

FALSE 

FALSE 


STRING (6) <truncated filename 
in uppercase? 

O1lSte DISKPACK>s PRINTER? If GUT = PRINTER 

PUNCHs READER» REAGTE or ELSE READER 

TAPE 

EBCOICLABEL or OMITTED EBCOICLABEL 

0.2-99999G99 (Read Only) 
1.239996 <record siz¢> 

INe OUT» 10 or GI 10 


02299999999 


(Read Only) 
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+ Increasina the values of these attributes 
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their 


compile=time values will destroy vortions of the program at 


runetime. 


“THE INFORMATION CONTAINED IN THIS:-DOCUMENT |S CONFIDENTIAL AND PROPRIETARY TO BURROUGHS 
CORPORATION AND IS NOT TO BE DISCLOSED TO ANYONE OUTSIDE OF BURROUGHS CORPORATION WITHOUT 
THE PRIOR WRITTEN RELEASE FROM THE PATENT DIVISION OF BURROUGHS CORPORATION" 


PAS 19681 REV 6°73 


Burroughs Corporation <7) B2000/2000/4000 


COMPUTER SYSTEMS GROUP 
PASADENA PLANT 


COMPANY CONFIDENTIAL 


L982 9992 


SPRITE REFERENCE MANUAL 


118 


rev. A 


PAGE 


PRODUCT SPECIFICATION 


18.2 FILE DEFINITIONS (Continued) 
Attcibute Values Default 
OPTIONAL TRUE or FALSE FALSE 
PARITY EVEN or OOD Conly for 7 EVEN 

track tape) 
PROTECTION TEMPORARY or ABNORMALSAVE TEMPORARY 
SAVEFACTOR 0 threuch 999 999 
SECURITYFAMILY STRING (6) KOISK" 
SECURTTYGUARD STRING (6) <none> 
SECURITYTYPE PUBLIC» PRIVATE» GUARDED» OEFAULT 
| NONE» or OEFAULT 

SECURTTYUSE IN» OUT» IO» or SECURED 10 
SENSTTIVEDATA TRUE or FALSE FALSE 
SERTALNO DISPLAY 0.296999 {Read Onty) 
SINGLEUNIT TRUE or FALSE FALSE 
UNIQUENAME “NULL. PROCESSGR or WORK NULL 
VOLUME INDEX 1 through 999 : 1 
+ Increasing the values of these attributes beyond their 
compile-time values will destroy portions of the orocram at 
run7time. 

13.3 NETWORW SYSTEMS PROCESSOR (NSF) FILE OEFINITIOWS 


The syntax for a nso_file_block is3 


nsp_file_block 
i 


i} 
! 
Vu nso_file_block name — .NSP__ 


The syntax for a nso_file description: 
nsp_file_descriotion 
t 
j 
Ne 


__-nsp_file_nare___ 
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PROCESSOR (NSF) FILE OF FINITIONS 


NETWORK SYSTENS 
The syntax for a nsp_file attribute _spnec iss: 


nso_file_attribute .soec 

| 

{ Bos dapat rar ns hee Oe ee 
NL 


C ou 


1 ‘veh er comin Gh ime mY ne ae eee ee Nes ea eee wee oe 


ee ee eee ey 
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(Continued) 


The oredefined module port _io is available for nso file Ise 


with the follcwina 


precefined 
pérameters. 

tnso_file_name) 
(nsp_file_name) 
(nso_file name) 
(nsp_file_name) 
(nsp_file_name) 
(nso_file_ name» 
(nsp_file_ name» 
(nso_file_namee 
(nso _file_names 
(nsp file names 
(nso _file_names 
(nep_file_names 
tnsp_file_names 
inepop_file_nanee 
(nso_file_ name> 
(nsp_file_namee 
insp_file_namee 
insp_file names 


open_wait 
close_retain_wait 
close_retain.dont_wait 
close_release_wait 
close_release_dont _wait 
aqet_messaqe 

dump 

read_state 

discontinue 

test_id 

seend_messace 
load_first 
load_intermediate 
-load_last 

soft_clear 
dlo_communicate 
ack _ message 

reject _messace 


NOTE? 1. The use cof attributes as expressions 
to that for file’ attributes 
neo file name oF ILESTATE = OPENED). 

2 o NSP attributes may not be pass 

parameters. 

Pointer_buffer is. a user declared variable. 

structure whose first field is an 


second field is a &"digit UN type. 
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expected 


pointer buffer) 
opointer_buffer) 
pointer_buf fer) 
oointer_buffer) 
pointer_buffer) 
pointer_buffer) 
pcinter_buf fer) 
pointer_butffer) 
pointer_buf fer) 
pointer_buffer) 
pointer_buffer) 
pointer_buffer) 
pointer_buf fer) 


is similar 
ASSERT 


ed as VAR 


it is a 


Bedicit UN tyoe and whose 
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the currently 


implemented N 
Constant expressicns 


sep file 


cén be used to <¢et the NSP file attributes where 
applicable. For additional information concernina the 
méeanina and usace of NSP file attributes» refer to 
UTO/DATACUMM documents. 
Availability 
1 = dectarable 
2 = gettable 
3 = settable 
Attribute Values Available 
ATTRERR TRUE» FALSE 2 3 
BLOCKSIZE 2oe9999IRB 1 2 4 
BLUCKSTRUCTURE FIXED 1 2. 8 
BUFFERS 12.299 1 2 4 
FAMILYINDEX 0.2.69999 1 2 z 
FAMNILYNAME STRING (17) 1 2 4 
FILENAME STRING (100) foe BS 
FILESTATE CLOSEDe AWALTTENGHOST >» 

OFFEREDs NPENED>» 

SHUTTINGDOWN»s BLOCKED> 

CLOSEPENDING » 2. 8 

DEACTIVATIONPENDING>» 

OEACTIVATEDs DENIED? 

POSTPONEDe OENTEDILLEGALUSE 
INTNAME STRINC( 17) 1 e 3 
TOCANCTEL TRUE» FALSE 2 3 
TOCOMPLETE TRUE» FALSE 2 
TQEGF TRUEs® FALSE 2 
TOERRORTY PE 0229999 2 
TOLENETH 020 2¢999999 2 
LOMASK STRINGC 16) OF HEX 2 8 
TOPENDING TRUE» FALSE 2 
IDRECORONUM 02 e69999999D9ITGG 2 
IORESULT STRING( 16) OF HEX 2 
MAXRECSIZE 222999998 i 2 3 
MYUSE INse ODUTs IO 1 2 A 
OFEN TRUE» FALSE 1 2 3 
OTHERUSE INs OUT» IO» SECURED 1 2 3 
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The syntax for a port_block is: 


poert_block 


SPRITE REFERENCE HANUAL 


Be ete a to. BO axe lon sot Med 
{ / \ 
\ uu port block name__PORT___N\___port_ descrintion___/___ 


The syntax for a port_description is: 


ocrt description 


port_attri 


ao 6D mem mm mee a ae oe es ome ee ee ee es oe ee 


The syntax for a oort_attribute_spec is: 


port_attribute_spec 
4 


\ 
{ 
\. € _\ attr_name 


“ 
0” 
oO 
o 
S 
rs) 
fa 
ia?) 
~ 
jo} 
eo 
Noun 
wy 
a 
ul 


bute spec 
\ 
) 


f 


attr ivalue_/ 


REV. A PAGE 


PRODUCT SPECIFICATION 


1983 9992 


lel 


The oredefined module port_ic is available for port file 
es and expected 


I/D with the followine predefined procedur 
parameters. 


open_wait 

open_offer 
open_available 
close_retain_wait 
close_retain_dont_wait 
close_release_wait 
close_release_dont_wait 
read_wait 

read _dont_wait 
write_wait 

write dont_wait 


port name 
port name 
pert name 
port name 
oort name 
port nane 
port _name 
port_name 
port name 
port name 
port name 


~— Nm 


Miscellaneous notes: 


fexpression) 
Lexpression] 
Cexpressicn) 
Cexoression) 
Cexoressicn] 
fexpression]) 
Cexpression} 
Cexpressionjs 
Cexpressicnds 
Cexpressionls 
Cfexpressionte 
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18.4 PORT FILE DEFINITIONS (Continued) 
ae Attr_onames and attr values are defined in BNA 


(Burroughs Network Architecture) documents. 


be Attribute names appearina with an index are treated ag 
suofile attribute names. Attribute names anpearina 
with no index are treated as port attribute names, 


Ce If MAXRECSIZE is not declareds the default value is 
19998 bytes. 


de Within the declarations specification o f port 
attributes must precede epecification of eubfile 
attributes. 


All varieties of vort £/0 read and write may take the 
[IF EUF option. 


The use of attributes as expressions is similar to that 
for file attributes. 


(e.d. ASSERT port name (1) SUBFILEERRUR = NOERRUR). 


The ranoe of both const_exor and expression is 0 
02 9999.6 


Port attributes may not dé vassed as VAR parameters. 
Example 


proGg_a_mod 
Mac 


port _bleck 
PORT. 
porti CMAXRECSTIZE = 200% INSNAME = “PORT_Ai1*> 
TITLE = "TEST _PURT™» MYNAME = * PROG_LAL"» 
MAXSUSFILES = 2° SECURITYUSE = [> 
YOURNAME [FiJd = "PROG_LA2"» YOQURNAME [2) = PROG_BIL" J» 


oort2 CMAKRECSIZE = 150 INTNAME = “PORT_A2"» 
TITLE = "TEST_PORT® » MYNAME = “"PROG_A2" » 
MAXSUBFILES = 205 SECURITY = IDe 
YOURNAME £103 = “PROG_B2"s» YOURNAME (203 = "“PROG_AL"™]; 


proa_a_entry 
PROC > 


SHARES 


P 
oort_ blocks 
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18.4 PORT FILE DEF INITIUNS (Continued) 
VAR 
Give Leo 0» 


read _rec_a» 
write rec_a STRING (40)% 


« 


write_rec_a 2?= *"Hello»r are you there?"s 
onort_io.open_wait (Cportilid)s 
port_io.ewrite_dont_wait Coortiflils write _rec_a)s 


port _ io.cpen_wait (port220)); 
- port_io.eread_wait (port2l2c)s> read_rec_a)> 


port ,io.close_reélease_ wait (portili)); 
port_io.clcse_release_wait (port220])3 


CORP? 
DOM: 


18.4.1 Port Attributes and Their Values 


Below 1s a list of the currently implemented port 
attributes and their rance of values. Constant expressions 
can be used to set the port and subport attributes where 
apolicable. For additional information concernina§ the 
meanina and usage’ of port attrioutes» refer to 
B2000/3000/4000 Burrouohs Network Architecture documents. 


1 =-declarable 
2 = gettable 
2 = settable 

Available Available 
Attribute Values For Ports Eor Subports 
ACCEPTABLECHARSET DONTCARE 1 2 4 
ACTUALCHARSET ASCII sEBCRIC 2 
ATTERR STRINGC(2) GF HEX 2 
BLOCK STRUCTURE FIXEDSEXTERNAL 1 2 43 
CENSUS 0o0.99S999 2 2 
CHANGEEVENT TRUE*FALSE 2 2 
CHANGEOSUBFILE 0269999 2 
COMPRESSTON TRUE® FALSE 1 2 3 
COMPRESSTONPOSSTBLE TRUE* FALSE 2 
CURRENTRECORD 22019998 2 
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1804.61 Port Attributes and [heic Values (Continued) 
Available Available 
Attcioute Values For Ports Eor gubports 
DIALOGPRUTOCOLLEVEL 1..255 2 
FILESTATE AWAITINCHOST» OFFERED? 
OPENED» SHUTTINGDOWN> 
BLOCKED» CLOSEPENDLING» 2 
DEACTIVATIONPENDING » | 
DEACTIVATED» CLOSED 
+ HISCODEFILEFAMILY STRINGC6) 2 
+ HISCODEFILENAME STRINE(6) 2 
+ HISCOMPRESSIONFLAG STRINGC1) OF HEX 2 3 
+ HISFLOWSTATUS BOULEAN 4 
+ HISMYNAME STRINE(100) 2 
+ HISNULLFLAGS STRINGC1) OF HEX 2 
+ HISOPENTYPE 02299 2 
+ HISPORTADDRESS STRING(4) OF HEX 2 
+ HISSUBFILEERROR NOERROR» DISCONNECTED> 
DATALOST» NOBUFFER» 
NOFILEFOUNDs | 3 
UNREACHABLEHOST 
+ HISSUBPORTADDRESS STRING(4) GF HEX 2 
+ HISUSERCODE STRINGC 17) 2 
+ HISYOURNAME STRINGC 100) 2 
HOSTNAME STRINCGC17) 1 2 3 | 
INPUTEVENT TRUE ® FALSE 2 2 | 
INTNAME STRINGCL?) 1 2 2 | 
MAXCENSUS 0229999 1 2 3 
MAKRECSIZE 20019998 {os 2 | 
MAXSUBFILES 1.29999 Iie 22s <3 
MYHOSTNAHE STRINGC17) 2 
MYNAME STRINGC 100) 1 2 8 | 
* MYPORTADORESS STRING(4) OF HEX 2 
MYUSERCODE STRINEC17) 1 2 3 
OUTPUTEVENT TRUE» FALSE 2 
+ PLMYCHARACTERSETS STRINGC1) OF HEX 2 3 | 
+ PLHMATCHRESP BOOLEAN 3 
+ PLHMAXMSGTEXTSIZE 22219998 3 
+ PLMMYCODEFILEFAMILY STRING(6) 2-3 | 
+ PLMMYCODEFILENAME STRINGt6) 2 3 | 
+ PLMUMYHOSTNAME STRING( 17) 2 os 
Za | 
+ Tnes@ attributes are only valid for the BNA software. 
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18.4.1 Port Attributes and Their Values 
Attribute Values For Ports Eer Suboort 
+ PLMMYNAME STRINGC 100) 2 2 
+ PLMSECURITYGUARD STRING(6) 2 3 
+ PLMSECURITYTYPE GUARDED» PRIVATE» 2 3 
PUBLIC 
+ PLMSECURITYUSE ip 2 3 
+ PLMTITLE STRING(17) 2 
PORTRESULTS STRING( 100) OF HEX 2 2 
READYEVENT TRUE* FALSE 2 
READYSUBFILE 0229999 2 
SECURITYGUARD STRING( 100) i 2 3 
SECURITYT YPE PUBLIC»PRIVATEr+GUARDED 1 2 3 
SECURITYUSE Io 1 2 2 
SUBFILEERROR NOERROR>» 
DISCONNECTED»DATALOST>» 
NOBUFFERs»NOFILEFOUND, 2 
UNREACHABLEHOST 
TITLE STRING( 17) 1 2 2 
YOURNAME STRING( 100) iy 3 
YOQURUSERCODE STRINGC17) t 2 3 


* These attributes are only valid for the BNA software. 
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Expressions are comorised cf operators 
Gperator precedence determines the order of 
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and operands. 
evaluation of 


cperands and subexpressions. Except for parenthesizinas wv 


crerators are evaluated in order of their precedence. BY 


be 


parenthesized expression is evaluated betore any cperator 


is applied to it. 


Evaluation of expressions results in a sinale 


value. The 


type of the exoreesion is determined from the operands and 


operators. 


Ir most olaces in the lanauages expressions 
The exceptions 


wherever constants or variables can aopear. 
involve © assiGnments e@eGee the left hand 


can appear 


side of an 


ascianment statement» and .actual oarameters where the 
formal parameters are modified by VAR. Some contextse such 
as type descriptionse require that all expression 


cemponents be constants. 
19-1 OFERATGRS 


19.1.1 Menadic Qperators 


eo este So ia eee Se ye 


Monadic operators are cperators which aoply te one operand, 


These ooerators have the hiohest precedence. 


Operator Operand Result 
Symbol QDperation Type Tyoe 
~ complement boolean boolean 
= complement HEX» strino€n) HEX» strinotn) 
of HEX of HEX 
(no effect) arithmetic arithmetic 
=f neaation arithmetic arithmetic 
= complement eet set 


19.1.2 Dyadic Qperators 


Dyadic operators are operators which avoly to 
The followino table Lists the operators in 
highest to lowest precedence. Within a aroup 
have the came precedence. 
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19 EXPRESSIONS 


Expressions are comprised of operators and operands. 
Ocerator precedence determines the order of evaluation of 
ererands and subexpressions. Except for parenthesizinas } 
orcerators are evaluated in order of their precedence. 4 
parenthesized exoression is evaluated before any coerator 


is applied to it. 


Evaluation of expressions results -in a sinale value. The 
type of the exoression is determined from the ooerands and 
operators. 


ro most olaces in the Lanauages expressions Can aopear 
wherdver constants or variables can appear. The exceptions 
involve © assignment» e.c.» the left hand side of an 
asgianment statement » and .actual parameters where the 
fermal parameters are modified by VAR. Some contexts» such 
as type descriptionss require . that all expression 
components be constants. 


19.1  (OFERATORS 


weew ese = SS ee ee ee 


Monadic operators are cperators which aoply tc one operand. 
Trege ooeratcrs have the. hichest precedence. 


zo Operator Operand Result 
Symbol Operaticn Tyoe Tyoe 
bal , complement boolean boolean 
al comolement HEX» etrine(n) HEX» strine(n) 
; of HEX of HEX 
+ (no effect) arithmetic arithmetic 
= neaation arithmetic arithmetic 
= comolement set set 


19.1-2 Qyadic Qoerators 
Dyadic operators are operators which avoly to two operands. 
The followina tabte Lists the operators in orouns from 
highest to towest precedence. Within a aroup the coerators 
have the same precedence. 
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19.1.2 Oyadic Qperators (Continued) 


Some symbols represent several distinct onerations. The 
operation to be applied» in thie event» is determined by 
the cperand types. 
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19.1.2 Dyadic Operators (Continued) 
Operator 
Symbol Uperaticn 
REM remainder 
* multiply 
¥ intersection 
/ divide 
+ additicn 
+ union 
+ concatenation 
= subtraction 
: difference 
< Less than 
< alohabetic < 
* < proper subset 
> areater than 
> alphabetic > 
* > proper stiperset 
<= less than or equal 
<= alphabetic <= 
* <= subset 
$= areater than or equal 
z= alphabetic >= 
* 2= superset 
7 equal to 
x= not equal to 
IN subrance inclusion 
IN set membership 
“IN subranoe exclusion 
7IN set exclusion 
& looical and 
& Looical and 
&& conditional ‘8 
| todical or 
! Locical or 
it conditional | 
it exclusive or 


exclusive or 


we 
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arithmetic 
sets 
aritametic 
arithmetic 
sets 
strinas 
arithmetic 
sets 
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Result type 


2 oS Gl Ge em @ret td a un a 


jnteoer 
arithmetic 
sets 
arithmetic 
arithmetic 
sets 
strincs 
arithmetic 
sets 


am = mwa mame 


ordered scalars bcotean 
ordered strinas boolean 
sets beotean 
ordered scadars boolean 
ordered strinas beclean 
sets boolean 
ordered scalars boolean 
ordered strinas boolean 
sets becolean 
ordered scalars boolean 
ordered strings bcclean 
eets poolean 
all tyoes ‘boolean 
all types boolean 
scalars sudranae boolean 
scalars set boolean 
scalars subranoe boolean 
scalars set boclean 
boolean boolean 
rlEX » HEX» 
STRINEGCN) STRING O(n) 
of HEX of HEX 
boclean boctlean 
beolean poolean 
HEX» HEX » 
STRING( Nn) STRING(n) 
of HEX of HEX 
boolean bcolean 
beolean beolean 
HEX» HEX» 


STRINGCn) 
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19.102 Dyadic Operators (Continued) 


of HEX 
symmetric difference sets 


es 
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f HEX 
ets 


In the taole ahboves arithmetic refers to integer and real. 


When both operands are integers the result is 


intecer. 


« When both cnperands are real or the operands are mixeds the 


result is real. 


Tre order of evaluatina.tne left and rioht overands 


guaranteed and may chances subject 


c 


is not 
empiler 


optimizations except for the conditional logical operators 


( && and th J). The Left coerand is evaluated 


the riaht operand is evaluated only if necessary; t 
if the teft operand cf && is true or the teft cperand of 11 
is false. Tnese operators alton more readable c 
certain situations and still avoid certain runtime errors. 


Examole: 


IF pointer -= nil 


THEN 
IF pointerd = Q 
THEN 
do_somethino; 
FI; 
FL; 


Can be written as 


IF pointer ~= nil && pointera = O 


THEN 
do_somethine 
Fis 
19-2 UPERANOS 
Ocerands may be primaries» denotationss 


expressions» aranae of values or inquiries. 


firsts» then 


hat ise 


ode in 


parenthes ized 


approorjate 


19.261 Primaries 
A orimary is a variabler constants casts» function calle or 
a file attribute inquiry follewed 
selections. 
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A selection modifies a name to achieve one of five distinct 


purposese namely» to invoke a functions to select 


a field 


ccemoonent of a structures to dereference a pointers to 
subscriot or slice an arrayer cr to select a substrine af a 
strino. Since selections can be applied to the result of a 
function call» the oarameter tList is included in the 


selection syntax diagram shown below. 


| 
PO eee yet ease cr tas oh tite aoe oy Sects wee 
| / 
Nee Nn cB k » _.._.field:icentifier_. 3 oe 
\ Rene ae a 4 cori i ae 
1 / subscript/elices \ 
ON. 1G! EN .imndexine os 
] 
Wns aces wes RT See eee Te EN ee 
i \ Re ee: Side eee as 
i \ / actual oarameter: \ 
{ Nu. € 1L NGL. expressicn ~  /__ 
| 
Nita yee » attribute nameztindicant_____ 
irdex ina 
' 
| 
iN UL exor_ oe Caeee Se Aa re ORR TER ne er et en erie area 
i \ / 
' Nein. ane? eS simple expr___/ 
1 Neo 7 
i 
\ i. _indicant_~ 2. ~_ RANGE 


Examples; 


afij .o04 

strna (13:2) 

arr £2..5] 
The first example is a one-dimensional 
subscripted to yield a estructure. A field 


ocinter is selected and then dereferenced. 


\ 

Sicath ca lat: Oi be 
/ \ 

{ 
een i 
; 

be etal fi \ 
| 

{ | 

i i 

i i 
eens / 
i 

\ 

i 

i 

{ 

ee ea ' 
\i 

i 

i 

array iqt 


‘po’ of types 
The second 


examole is a substrina of 'strno*, The third example is an 


array slice cf a onewdimensional array. 
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Access Attributes 

The access of a primary (before selection) may be 
read/write (VAR) or readwonly (CONST). The access of a4 
orimary after selection refrains the same as its access 


‘before selections with the exception of dereferenced 


pointers. A dereferenced pointer takes on the access of 
the referenced value instead of retainina the pointer'ts own 
access (see 14.4). 


The type of a primary 


is determined from the declared type 
of the base name and the s 


selections applied to it. 


Véeriables 


1De2olel 
Use of a variable may involve alt cor part of a data 
structure. 
Niles me tected variatlezidentifier__. selections __. 
fees tes et pee ane ae / \ 
{ 
t 
Full oenerality is permitted in selections. 
Examoless 
cymb_tabl Lid. °declra. idtyoe 
-table_otrad fCi-te mesizel. cp 
19.2.-1-2 Censtants 


Certain .centexts require that only constants be used as 
ocerands of an expression. Scme standard functions (Cabse 
filllarray» fill_strinas Lenath» lwo» upb) may be used in 
constant expressions» if their value can be determined at 
compile time. 


Named constants are defined. oy means of constant 
definitions. 7 


If the constant has an aogreaate* type», selections may be 
applied to desiaqnate a component. 


The access is readzonly (CONST). The type 


determined 


from the declared type and the selections applied. 
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19.2.1.2% Casts 


SPRITE REFERENCE MANUAL 


1984 9992 


In certain contexts» @.Ge.e assianmentss ovarameter passinas 
and expressionss it may be necessary te convert a value of 


one type to a value of a related type (see 13.7). 


may daetermine an implicit conversion (i1.@oe 


supplied exolicitly. This construct is cattled a 


Context 


a "coercion!). 
If the context is ambiaquouse the desired tyne must be 


‘casti, 


Casts provide an unambicuous context for conversion where 
it woutd not otherwise exist. The syntax of a cast is: 


\ cast types indicant ( exoression 


Aroropriate selections may oe applied t 


of the cast indicant. 


fe) a cast. The 
access cf a cast 15 read=cnly.~ The tyoe of a cast is that 


Tre value delivered by the Expression must be convertible 


to the tyce reoresented by the indicant. This 


may require 


a series of casts. All coercions of the lLanauace are 


available as casts, 
Examples: 
TYPE SIGNEN = "99..99% 


UNSTGNED = 0.699% 
DISP_LUNSGN = DISPLAY UNSTGNED? 


STR2 = STRING (2) UF CHAR? 

STR3 = STRING (3) OF CHAR; 
VAR si SIGNED. := 25» 

chs STRS> 


chZ 2= STR2C01SP_UNSEN CUNSTONEOCST))); 


% Display can only be applied to unsianed intecers. 
4 The STR2 cast creates a strina before assianment 
%Z to Left justify the value. ch’ contains "25 ™, 


19220164 Function Calls 


A function call invokes a routine which ret 


urns 


a value. 


The reutine invoked is tke one that is associated with the 
The call passes 


function name by the procedure definition. 


a varticular set of actual ovarameters. 
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19.2.2060124 Function Calis (Uontinued) 


allowed on this operand (function catl) are those 
aovropriate for the return tyce cf the function. 


The type of the call is the tyoe of the RETURN value 
specified in the definition of the function. A function 
call cannot be used where read/write access is required. 


function: 


( 

| 

WON es Na oe foe fe ta) VC act oe Res we ee ee ee ee oe, ee 

i - module: / Xv ee pee ee / oN 

IN ident « af if fact. param: \ | i 

! (NUL € DUNC expr oo /o. ) Los 

\__functionzorimary__ / Nee is ee / i 
4 
t 


A function orimary» involvine the dereferencina of a 
veriable of types PTR TO PROC» may be used. 


If the call is qualified by a module names an intermodule 
cell is made. 


The number of actual parameters must be the same as the 
number of formal parameters in the procedure definition. 
If a parameter access is read/write (VAR)»* the type cf the 
actual pérameter must be equivalent to the type of the 
correspondina termat parameter. If the access is readonly 
(CONST)» the actual is coerced to tne formal type if 
necessary and if possible. 


When the access of the formal parameter is read-onlys the 
actual parameter may be an expressione variable or 
constant. When the access of the formal is read/write» the 
actual must also have read/write access» i.@.9 be a 
veriablLe. The order in which the actual parameters are 
evaluated is undefined. 


Use of the modifier VAR with a formal parameter means that 
changes to the value of the formal onarameter are atsc 
chanaes to the value of the actual parameter. CUNSTe the 
default» means the actual parameter may not be changed via 
the formal parameter. 


An empty narameter List may be used for documentation or 
clarity. 


Selections may be applied to a function call. 
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19 .2e124 Function Calls (Continued) 


Examoles: 


abs (x) 

Lenoth (strino_name) 
current_index +:= tenath 
token := get_token; 

twb Carray_names subdscricrt) 
round ¢y) 

upb Carray_nameri)d 


(inout_ string) 


19.2.1.5 File Attribute Inquiries 


inguiries select various at 
and may orovide a 
can be assianed to a file. 


File attribute 
from ae file 
attribute vatues 


attribut 
indic 


filename: 
\ identifier ° 


The type of the primary is determined by 

chosen. The attribute chosen also determine 
the value. Some file attributes are fr 
others may be correctly assiaqned values only 
ts in a particular state (opener assianeds 
attributes may return Leoitimate values 

is open or assianed or in some other 
Appendix C = File Attributes for details. 


Examples: 
card.BLOCKSIZE 


orint.8ACKUPKIND 
work UNI QUFENAME 


19ed202c 


Denotations are representations of values. 


strinas (one or mere characters)» numpe 
realdse symbolic identifiers» and the 
identifiers (nile truer false). Each denot 
priori® type: 
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tribute values 
where new 


The syntax is: 


e€ names 
ant 


Se ee ey 


the attribute 
s the access toe 
ead only» while 
when the file 
Some file 
file 


state. See 


Denotations are 
rs C€intecer and 
constant 
ation has an ‘a 
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type 


subrandqe neon 


¥ real number REAL 
symbolic id as defined 
string STRING ¢€actual Lenoth) OF EBCDIC 
nil PTR fany accesses Levels» tyne) 
truee false BUOLEAN 
19226201 Acoreaqate Nenctations 
Acaqreaate denotations have the form 
| 
Po ae Sect Bo per a 
1 / \ 
Not hs ta Nee OK OP OSS 10M aif 5 De A oh ee 
\ 
i} 
i 
They represent structures and arrays (see 12%,%.1 and 
£2 83.. 30% The type is catermined by context. The 
expressions are coerced to the comoonent types if 
necessarye 
The expressions fay be constiant or variables althouan 
exoressjons associated: with tao fields and data 
initialization must be constant. 
Examples: 
Cie 3° 5] 
C"a">» L» trues Ctruee faltselr nil) 
19.23 Péercenthesized Exoressions 
An exoressicn enclosed in carentheses serves as a single 
operand. The syntax is: 
{ 
I 
Noagees fl coer ea expression_____ Maer ata Sees te RIA he ot Mee tg 
\ 
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192204 inguiries 
Inquiries 
( 
] 
Noe estes typesindicant___ 
The type of an inquiry 
indicant is 
scalar types. The 
cellection or 
Type Inquiry 
ordered scalar MIN 
ordered ecalar MAX 
scalar RANGE 
* REAL DELTA 
* REAL EPSILON 
any tyre SIZE 


Cexcept BIT or 
parametric) 


Examples?’ 
OP_RANGE.HIN 
MONTH. MAX 
CHAR RANGE 
19.3 RANGE OF VALUES 


A range of values 


interrogated. The 

result is an 
range of valuess 
scalar type is ordered or unordered. The 
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interrogate type attributes. fhe syntax is: 


same as the type whose 
inquiry RANGE applies to 
ordered or unordered 
dependina upon whether the 
inquiries are: 


is the 


Value 


oo Oe eo wwe ey ee ee ee ee ys oy ee cee 


least (for numeric) or first 
(for symbolic) value cf the type 
agreatest (fer numeric) or last 
(for symbolic) value of the type 
the collection cof all values of 
the type 
smallest positive number fer 
the type 
smallest positive number such 
that 1.0 + EPSILON > 1.0 
number of digits occupied by a 
data object of this type 


is expressec by: 
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19.3 RANGE OF VALUES «Contin 


(\ simple exor 


\ typesindicant_ 


The expressions must Ob 


rance of values may 
Labels (*)» a FOR range 
and a sticing or subst 


Labels» it must specify 
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ued) 


be ac SS VINE OX DR. oe 
/ 
» RANGE. / 
e compatible ordered scalars. 
be used as variant labels (*)»s CAS 
» an IN operands set elements (C* 


rinaine (*) selection. When used a 


a rance of constants. 


“TRE INFORMATION CONTAINED IN THIS DOCUMENT IS CONFIDENTIAL AND PROPRIETARY TO BURROUGHS 
CORPORATION AND IS NOT TO BE DISCLOSED TO ANYONE OUTSIDE OF BURROUGHS CORPORATION WITHOUT 


THE PRIOR WRITTEN RELEASE FROM THE PATENT DIVISION OF BURROUGHS CORPORATION'! 


L2¢ 


\ 
\ 
| 
‘ 


A 
E 
) 
iS 


PAS 19681 REV 6°73 


1983 9992 


Burroughs Corporation 
COMPUTER SYSTEMS GROUP 
PASADENA PLANT 


B2000/3000/4000 
SPRITE REFERENCE HANUAL 


¢) 


Rev. A Pace 128 


COMPANY CONFIDENTIAL PRODUCT SPECIFICATION 


20 QDEGUGEING A SPRITE PROGKAM 

Tranks to strona type checkina and cther compiler features, 
the SPRITE compiler catches as syntax errors many kinds of 
prearam toaic problems whiche in other Lancuagess miaht be 
detected only as runvtime errors > if at all! Desnite thise 
you witl find that debuaqaging your prooram still takes time 
ard efforts» especially if ycu don't take advantaoe of atl 
of the debuagina tools which are available to helo you. 


We recommend that you take the followina steps as you build 
ycur programe since they will atlow you to mate best use of 
your debuccina time? 


1. Use aoodes wetl=structured ceding methods. You 
should try (within reason) to make many small 
procedures» rather than few larae proceduresys 
since most of your debucoina aids involve 
procedures. 


20 Avoid tricky ceding methods whenever opcessibler 
esoecially STRUCtures with omitted taaq fields, 
When you build your crn pointers» or make use. of 
SPRITE's failure to check the value cf a tag fiela 
when wakine fietd selections» or do other eneaky 
Calthough sometimes necessary) thinas» you are 
bypassina any help that the SPRITE compiler can 
cive yeu in detectino your errors. 


» Avoid resettina the SPRITE control card options 
NEBUEGCALLS and ERRORCALLS (see .Appendix 1.5). 
These cptions reduce the debucotine capabilities of 
your procram at runtime. 


4 Do not use the -OPTIUN statement in BINDER to 
remove optional code during testing. You will 
need all cf the helo this optional cede can aive 
yOUe You micht censider teaving this optional 
code in your program even for released products. 
Proaraw errors’ Cause much lees trouble when they 
are caught immediately» and we can think of few 
products which have been released without uncaucht 

errors in them. 


5. Bind the SPRITE debuo packace into your procram 
while you are testine and debucoine jit (see 
section 20.222). This package provides you with a 
lot of assistance in your debucoina job. You must 
use the OEBUG statement in BINDER to set up the 
calls from your orocedures to the debua module. 
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20 DEBUGGING A SPRITE PROGRAM (Continued) 


6. Make use of the’ "'dowrite’ module to orint the 
value of variables at critical places in your code 
“(see section 20.2.4). The current deoua package 
cannot print eytbotlic (or any other) 
representations of data in your proaram 7 a bia 
weakness! You can save a lot of debucoina time if 
you. plan data orintouts well. 


Note that you now have the problem cf maintainina 
debuc and non=debue versions af your ICMs. You 
wilfl also need to comment cut the debug cede in 
your modules when you produce non=debuo I1CHs. 
This task can be eased by using the f_dbwrite 
module within ASSERT statements. 


7. Write specialized code in your proaram te controt 
the debucainea actions taken by the debuo module 
(see section 20.2.6). You may find it worth the 
effort in some cases to create your own interface 
to the debuccino package to sive yourself more 
flexibility in debuacing. 


8. Write specialized procedures in your proaram to 
print tables» structuress symbolic  vatuese or 
anythino else you think ts worth the effort. 


Many of the errors you will encounter while debuccine your 
prooram are simole runmtime detected errors. Other errors 
express themselves as stranae orogram behavior. They 
efficiently avoid detections and you may require powerful 
debusaing aids to find them. 


20.) RUN°TIME PROGRAM ERRORS 

You will find that many of your orocrammine errors Cause 
ycur oroagram te encounter a run-time error situaticen and 
abort. You will -also find that these common run-time 
errors are usually easy to fix. 
Run-time errors are found by: 

1. code Generated by the SPRITE compilers 

Ce the processor (hardware)» or 


2, the Qperatino System (MCP). 


We discuss each of these below. 
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When code oenerated ody the SPRITE compiler detects a 
runtime  errore it calks the err module to print an error 


messaGe. Runtime errors include: 
CASE SELECTOR GUT OF RANEE 
ASSERTIGN FAILED 
NG PROC RESULT RETURNED 
SUBSCRIPT OUT GF RANGE 
STRING TRUNCATION FAILED 
VALUE OUT OF RANGE 
CONVERSION FAILED 
STRING IS NON*NUMERIC 
STRING OFFSET OUT OF RANGE 
STRING LENGTH OUT OF RANGE 
HEAP AND STACK COLLISION 
HEAP OVERFLOW 


HEX STRING LENGTHS NOT EQUAL 


The err module also orints the name of the module in which 
tre error haopened and the statement numoer and tine number 
of the source proaoram statement in which the error 


nappened. You sheuld have no: trouble tixino 
runtime errors. 


these kinds of 


If you use the BINOER's UPTION statement to remove various 
levels of optional debuo codes your oroaram orobably wilt 
not call the err module. The subseauent execution of your 


proaram becomes unpredictable» and you 
trouble findina out exactly what went wrong, 


206102 Run-Time Hardware Errors 


The hardware processor may detect one of 
kinds of errors durino the execution of your 


INSTR TINE QUT 
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Unless your program is armeds the MCP will display an error 
messace on the SPQ telline the type of error which 


hepneneds the address cf the instruction 


in which the error 


happened» and the overlay tor seoment) which contains the 


instruction. You will fine ae BIND 


listina useful to 


determine which of your procedures had the error. 


If you are usina the debuc packager or 


if your proaram is 


armed and calls arm.aqet_error_messace»s you will aet a 
messace from your proaram which is similar to that from the 


MCP. Wowevers the messace from yeour 


oroaram may include 


additional error information é¢ described below. 


You need not worry about a memory parity errors as this is 


caused by a hardware failure = not a bua 


Address errors have several common 


in your procram. 


CaAUuSeS. if your 


proaram's next stack address (at location 40» size 6) is 


beyond your proaram's Limit reaisters 
a stack overflows which you~ may 


remexecutinc your prooram with more core 


your proaram has had 
usually correct by 


(you may also wish 


to change the STACKSPACE statement in your BIND deck). If 


ary of your program's index recisters 
program was probably attemctine to 
ocinter. Tf any of your orocram? 


contain EEEEEE» your 


dereference a nil 


index reaisters contain 


s 
FFFFF Fe your oerodaram was prohbabiy attempting to dereference 


an uninitialized pointer. 


If. you use the ERRORCALLS control card opticn in your 
SPRITE compiles” — your prearam will aet an invalid 
instruction when one of SPRITE*s runstime errors (described 
in section 20.1s1) occurs. Ycur prooram prints ene cf the 


error messaces described in section 


20.121 (but not 


including the module name and statement numbers) if you are 
using the debuo packace or if your program uses the arm 


module to handle proaram errers and to 


print the resultina 


error messaoe, Otherwise you will need a memory dump to 


determine what happened. The invalid 
oemcode of EC lerror code)» and the tro 


instruction has an 
diatt field which 


fellows is an index into the list of @rrore in section 


e 2 
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Ar invalid arithmetic data error says that your prooram is 
dcing arithmetic on a variable which has Avr Be Co Do Es or 
F digits in its value. You may usually assume that you are 
dealing with an uninitialized variable. 


When you are using SPRITE's debug packaacer you need not 
worry so much abcut thise as debuo witl aive you an error 
messace describina the run=tine error in areat detail. 


202123 Run-CLime MEP Errors 


When the MCP detects an error in your programe it usually 
orints an error message aivina the type of errors 
instruction address» and the seoment number where the errer 
heopened. If you are using the debucs packages or your 
procram is armeds the MCP allows your program to execute at 
its errorshandlino routine ratner than orint the messaae, 
In either caser the MCP puts ¢ result descriptor into yeur 
procram address 80» size 4) which describes the type of 
error it found. ; 


The MCP typically detects errors in the way that your 
program uses MCP functions (files» stoquer dates times 
displays etc.). The message 


<proa=namer>=<mix#> INV OPEN <filename> = INV RECO SIZE 


je an example of messaoes which result from this type of 
error. The result descriptor which the MCP passes to your 
procram has the format "9xx0"» where 'xx* describes the 
particular ‘error which the MCP found (see MCPVI PRODUCT 
INFORMATION UPDATE for a list of these errors). 


2002 SPRITE DEBUG PACKAGE 


“The debua package provided by SPRITE helos you in debuaqainaga 
the more subtle kinds of errors that you may find in your 
proaoram. The packace consists cf the debua medule and the 
subordinate modules which it needs to accomplish its task, 


Noteithat you need net make any chanaes to your MID to use 
this debuo package» unless you make explicit calle (such as 
te dbwrite) in your modules. 


The followinao ¢ections describe her you put the debug 
peckace into your program and how you use the debua packace 
when you execute your procram. 
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opticn (see 


Appendix ff)» SPRITE will oenerate ontional debue calls at 
orocedure entry points and procedure exit points. 


Unless you reset the OEBUGCALLS control 
reset the DBSTMTCALLS control card option 


SPRITE will oaenerate optional aebuc 
marker points. 


20.202 BINDina with Debus 


ee oS 


Wren you bind your program with BINDER» you must 


DEBUG statement to direct ®BINDER to 


cenerated by SPRITE (they are otherwise deleted), 


card 
(see Appendix I» 


ept 


calls at st 


ion or 


atement 


use the 


use the debug calls 


also telt BINDER which files it should 


feollowina ICMs: 
arm 
dbwrite (only if you use jt) 
debdua 


err (the debua version!) 


put 
readcd 


trace 


We suacest that you use the PRINT LAYUUT 
bind deck to caet the physical memory 


procrams since some kinds of errors 
of 


seoment number and itnetruction address 


As the debug package is quite Laroes you may wish 


use 


statement 
Layout o 


You must 
fer the 


in your 
f your 


give you only the 


the error. 


to tate 


some of the fotllowino sters to help keeo your prooram 


smaller or to keep code under 200: kd. 


Le Make debua.initialize a pass 
will save you 12 = #=¢t0 15 kd 


multiple passes. You could also 


if you use only cne. pass 
seoments. 


entry 


point. 


This 


if your procram has 


make 


but have 
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20 Put the db debug _proc_table data block into a HICH 
DATA statemente This witt help you avoid code 
over 400 kd. If you are usinos statistics 
version of debuas you may also put the 
st_statisticse info deta block into hiah memory. 
20.2.3 Executina With Debuo 
We now explain - in gruesome detail = the that you 
mioht use the debuc package to help you find your proaram 
errors. 
Debua allows you to perform one or ‘more of following 


tyoes of debucaino when your orogram executes. 


1. Monitor the flow of centrol in 


your prcorame 


showing the entry into and exit from procedures. 


2. Monitor the flow of control within 


your programs ¢howing “your proaram 


statement to statement. — 


procedures in 


pass from 


%. Print the output from the dodwrite moduler 


values of data from e¢tatements 
coded* into’ your modules. 


4s Terminate your proaram at a specified 


00 


Limit execution or control’ runaway locos. 


5e Trace your prooram., 


showina 


which you have 


int to 


6. OUbtain memory dumos of your program at a specified 


point. 
7.* Control the execution of 


the normal batch processino mode. 


In the followina sections we show how you may 


accomplish the actions described above. 


20020401 Primary Oebua Input 


your 
interactively from your terminals» rather 


prooram 


than from 


use debug to 


You centrol the debugoina actions that debua will take when 


your proeoram runs by feans of the second 


parameter which you aive to ycur proaram when 


ite 
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20422 BINDine with Qebua (Continued) 


2. Put the db_debua_proc_table data block into a HICH 
DATA statement. This witl helo you avoid code 
over 300 kd. If you are usina the statistics 
version of debua»e you may also put the 
st_statistics_info deta block into hiah memory. 


20.2.3 Executina 


We now explain = in aruesome detail - the ways that you 
might use the debue package to helo you find your proaram 
errors. 


Debua allcws you to perform°one cr‘more of the _ followings 
types of debuagino when your oroaram executes. 


1. Monitor the flow’ cf control in your orcorams 
showing the entry into and exit from orocedures. 


2e Monitor the flow of control within procedures in 
your erogram»s showina “your proaram opass_ from 
statement to statement. © 


3. Print the output from the dbdwrite module» showina 
values of data from statements which ycu have 
coded* into’ your modules. 


4. Terminate your program at a specified ocint te 
Limit execution or cantrcl runaway lecos. 


5. Trace your orcaram. 


6. Obtain memory dumps of your orocram at a specified 
point. 


7.* Control the execution of your procram 
interactively from your terminal» rather than from 
the normal batch processine mode. 


In the followina sections we show how you may use debua to 
accomplish the actions descrited above, 


20.2.3.1 Primary Oebua Input 


You centrol the debuaqoina actions that debua will take when 
yeur proeram runs by means of the second ‘/' execute 


Darameter which you aive to ycur oroaram when you execute 
it. 
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20e2e5e01 Primary Debua Input (Continued 


You may use any combinatién of the followine debua command 
Letters in the second */* parameter to your proeram: 


/A monitors All orocedures and etatements. 
/C extended input is in Capital Letters. 
/D memory Qumo taken on error termination. 


/tt chance number of monitor History entries printed 
on error termination. 


/1* Interacts with debugcer. 

/i4 Monitors alt procedures. 

“N output on Narrow (SHORT) paper. 
/Q moniters Overlay calls. 

7P Prints trace Listinas on Printer. 


18 prints orocedure Statistics when your program 
terminates. 


/¥ Iraces alt orccecures = not recommended! 
/U— output printed in Uocercase letters. 

/W all dbWrite Lines printed. 

/X reads eXtended debug commands, 


Debua uses the second */* parameter to avoid conflicts with 
proorams you may have which use the first '"/* parameter. 


provide 
cute your 


Note: To use the second '/" parametere you mu 
something as the first "'/* psrameter when you e 
procrams even if your prooram doesn't use it. 


£ 


{ 
Ke 
Example: EXECUTE TSPROG ¢ DUMMY / X. 


*«& ¢/C Deodua Command 


This command allows you to create extended debuc command 
decks C*/K") Gon a keypunch that does not have tower=case 


letters. In this deck» you must precede any ‘real? 
urgper=case words by an underscore (for examples 
4 MONITOR*). When orocessina any cther wordse debua will 
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x* *C Debua Command (Continued) 


cenvert all uoner=case letters to tower*case Letters before 
it uses them (these are usually procedure names). 


** fH Debuoe Command 


You may use the '/H* command olus a followinoe number to 
scecify the number of history monitor entries which deoug 
prints if your orocram terminates abnormally. This history 
shows you the finat *n* procecure calls and/or returns that 
ycur orocram made. ODebuo defaults to ten history entries. 


If you wished to see 49 monitcr Lines frem the historys you 
weuld execute your precram with '/H39" as cne cf the debua 
commands. 


** fT Debua Cemmand 


This command allows you tc control your orcoram 
interactively from your terminal. More details ara TBS. 


xe /€ Debua Command 


You may use this cemmand to cet information about the 
overlay calls which your ocroaram makes, When deduco finds 

that an overlay call has been made for is about te be 
made)» it prints tro Lines civing you the nemes of the 
oprecedures that your oregram is coming from and cojne tees. 
With this informations you may revise your BIND deck to “™- 
imorove your creoram's oerformances, 


ee /P DNebuo Command 


This command allows you to oreak each part of a trace into 
a separate Listino which goes directly to the printer. You 
must also use the */T' commande '/X* and extended debue 
ccmmandss» or prearam action to cause debua toe trace the 
desired procedures. 


Ycu micht use this ception to stop and start your oreoram at 
will by makine the printer net ready or ready. 


Yeu mi¢ht also use this optior to make your procram execute 
fasters since the MCP does not trace debua. Without this 
options the MCP does trace debuc»s even thouch you never see 
it on your trace output. 


Since the trace listina coes directly to the printers you 
méy not use RCSPBO to examine the trace on your terminals 
as you _could without this command. 
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xe /C Debua Command (Continued) 


, 
ccnvert alt uppercase letters to lowercase letters before 
jt uses them (these are usually procedure names). 


** /H Debua Command 


You may use the 't'/H' command plus a followino number to 
specify the number of history monitor entries which deoug 
prints if your oroagram terminates abnormally. This history 
shows you the final 'n' procecure calls and/or returns that 
ycur orogram made. Debug defaults to ten history entries. 


If you wished to see 39 monitcr Lines from the historys you 
weuld execute your program with */H39* as cne cf the debua 
commands. a Hy 


** /1 Debug Command pie Se ; 


This command allows you to control your proaram 
: interactively from your terminal. More details are TBS. 


Nee ee ee oO Debua Command 


You may use this command to aet information about the 
overlay calls which your oroagram makes. When dedua finds 

that an overlay call has been made (or is about te be 
made)» it prints two Lines civina you the nemes moss the 
precedures that your orcaram jis comino frem and aoing tees. 
With this informations you may revise your BIND deck to “S~ 
improve your croaram's verformance. 


#* /P Debua Command 


This command allows you to oreak each part of a trace into 
a separate Listina wnich coes directly tc the printer. You 
must also use the '/T' commands /xt and extended debus 
ccmmands» or oproaram action to cause debua te trace the 
desired procedures. ; , 


Ycu miaoht use this ‘option to stop and start ycur oroaram at 
will by makine the printer not ready er ready. 


Yeu micht also use this optior to make your program execute 
faster» since the MCP does not trace debuc. Without thnis 
ection» the MCP does trace detuc»y even though you never see 


it on your trace output. 


Since the trace lListina aoes directly to the printers you 
a mey not use RCSPBD to examine the trace on your terminals 


as you. could without this command. 
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eK 7S Debuco Command 


If you use the '/S* commands debuq will print a list of all 
procedures which your program calleds along with a count of 
the numoer cf times each was called. 


If you are usinae the statistics version of debuas debua 
will print a report agivino the appreximate time that each 
of your oprocram's procedures used durina execution (NOTE: 
for best results» do this with no ether jobs running). 
This may oaive you some clues as to how you miaht imorcve 
your orogram's performance, 


wt 7T Debuo Command 


While we hate to see :trace as a debusaqina tecolse we 
recoanize its need in exceptional circumstances. Howevere 
yeu should think three or: four times before usine the '/T? 
option. In most casese you can find your oroblem by 
tracing procedures selectively with the "/X" command and 
extended debuc commands. 


ag /U Debua Command 


You will find this command useful if your debuo cutput must 
ec to a printer which cannot print lower-case Letters. 


20.2240e2 Extended Debuo Input (7X) 
lf you have used the */X* options you must put extended 
dedbua commands inte a card file Cor editor files if you use 


SYS COMP) for debuc to read and process. 


The syntax of the extended debuaq commands is: 


extendec dedug commands 


te RP an oh | RD OM Ga ET fw EID GD OY arm am i at OH or 


U 
4 
\ \_.. debus specification __ / END 
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debua scecificati 


i 
i 

i 
Xs 
4 

\ 

' 

‘ 
\___ DGNT_ DEBUG 
{ . 

i 

i 

\L 


LIMIT __/ 


aqebua action 


{ 
i 
\ ~.- DBWRITE _ oe 
j 
\... MONITOR 
( 
\ WU. STATEMENTS 
{ 
Nios, ERACB? 2k, 
procedure List 
' 
1 
| / 
I J 
\ \ orocedure name 


€/X) 


B2000/2000/4000 
SPRITE REFERENCE 


PRODUCT 


(Continued) 


on 


_\ LL. procedure 


\__options__ 


Limit procedure 


<Limit: 


1983 9992 


MANUAL 
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PAGE 


procedure list 


\ 
ALL counts ~__/ \ 
1 
se ot Biel / 
\ | 
nane BAS SEs ie SO TI | 
\l 
| 
VEST. Bea | 1 
Nanay Ate uae | 
numoer> —  / \4 
{ 
{ 
{ 
\ 
| 

aaj ete oe ee 
/ NX / \ 
\ counts o/ \ 
| 
{ 
{ 
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20020402 Extended Debuc Input (7X) tContinued) 


counts 
{ 
{ 
\ J. <start count: number> ~ ooo UU 
. \ \ 
ah es Os ent RE fsa ee St a / 1 
/ i 
i uw. Cand count? numbder> i 
Nei 2. Tee F \_. | 
\ END / Ni 
{ 
i 
| 


procedure name 

i 

4 

VU. <medule name: strine>.<proc name: strina> 


~—-—- 


\ 
! 
\ 
Limit crocedure list 
i 
i eres eRe eat oS hich tas eek Be, Se a 
i / ‘ 
Vu -\VuL. erecedure name ~~ <limit: number> ~~ /__. 
\ 
i | 
{ 
options 
{ 
Do ge ele en een BC re al eh he ee te One: 
! / \ 
io 1 
i \ ~-. LEVEL ~~ <levels to debuas number> | 
Ne No No ce 
Need, ER CAN DM ES 0h dS tn tet ee eet / 
You may provide onty one debuc specification for a 
particular procedure. However» you may use any number cf 
debua specifications for "ALL? For examole: 
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20222-4262 Extenced Debuo Inout (/X) (Continued) 
MONTTOR ALL £09 ~ END TRACE ALL 7¢ 86 
*% MONITOR Debua Command 


The MONITOR command allows you to s¢e@ your oprceoram call 
procedures ('FNTR*) and return from procedures ('EXT!), 
Each MONITGR Line which debua prints contains the ALL 
count p "NTR ocr YEXT's the name cf the t«¢:edule and 
procedures and the procedure relative count (xhich is the 
number of times that this procedure has been called). 


"MONITOR ALL® is equivalent to "/M*, 


See Debuo Action Controlse belowe for additional 
information about this cemmand. 


** STATEMENTS Debuc Command 


The STATEMENTS command allows you to see your program 
execute within a procedure on a statement*bystatement 
basise You will see which way an IF statement  branchede 
what CASE ¢tatement code was executed etc. This should 
give you some idea about the values of control variables in 
ycur proaram. 


Each STATEMENTS Line which: debuo prints contains the ALL 
count» "'STMT's» the record number of the statemente the Line 
number of the source line containina the statement» and the 
procedure relative statement number (which is the number of 
statements executed so far in the current itnvocation of 
this procedure). 


The STATEMENTS command also sets MONITURe so that you will 
have "NTR*®. and "EXT* .MUNITOR Lines to show you what 
procedure is eéxecutine. 


"STATEMENTS ALL" is equivalent to */A*", 


See PNebuc Acticen Controlses belcw » for additicnal 
information about this command. 


x* DOPWRITE Deoug Command 


The OBWRITE command enables the printina of debucaina 
information lines by the dbwrite module. This allows yeu 
te see the values of variables as your program executes. 


"CBWRITE ALL* is equivalent to t/W?, 
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** OBWRITE Debuo Command (Continued) 


See Debug Acticn Controls,» belows 
irformation about this command. 


x* TRACE Debuq Command 


Tre TRACE. command allcws you to trace the ex 


for additional 


ecution of your 


procoram.e:. We hate to see trace used as a debuagine tools» 


but we recoonize the need in same cases to 
of variables. We hope one ‘day to have 
monitorina capability for variables. 


see the values 
a hiche-level 


You have a choice in the way you trace. By default» all of 


your tracina wilt aoon a single printer 


Soe See oe vem acer 


While this requires more overhead durina execution (the MCP 


traces debuaqgs but does not print those Lines 
a sinole Listina which you may examine from 
with RCSPBD. 


If you use the /P febuc Ccmmand (see sec 
each piece of your trace will ao directly 


Je YE gives you 
your terminal 


tion 20.2e461)e 
to a printer. 


This will ‘be fasters and it aqives you a means cf directly 


controlling your program (by stoppino the opr 
may not be as convenient. 


At the beginnino of each section of tracer 


inter)». but it 


you will see a 


trace Line containino “COUNT ="»s tne ALL counter "/"»% the 


procedure relative counts "2%o *NTR® or tExT 
néame of your procedure (in uoper"case 
Marker Of @<¥KeC KR CR CHR CSH S 


"TRACE ALL* is equivalent to "/T*, 


"or 'STM's» the 
Letters)» and a 


Seée Debua - Action: Controlse belowe for additional 


information about this commana. 


% 
& 


DONT DEBUG Debuco Command 


The DONT DEBUG command directs debua 


to 1onore the 


specified procecuress even if they would normally be used 


ir some way «(as in MONITUR ALL or /W). 
You may use this to suppress debuc 


procedures which you feet are reliable o 
thereby reducino the amount of output from d 
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** LIMIT Debua Command 


L983 9992 


SPRITE REFERENCE MANUAL 


Rev. A PAGE 15? 


The LIMIT command directs debua to terminate execution of 


ycur program when any of the specified limits 


are exceeded, 


You may use this command with the "/D* command to aet a 
memory dumo at a specific place in your prearam. 


**  QDebuoa Action Controls 


You may Limit the scope or ranoe of action of the MONITOR» 


STATEMENTS» DBWRITE and TRACE debua commands. 


a debuc action to take olace 


You may wish 


1. Within a specified rance of ALL counts» or 


2. when a particular procedure is called within a 


soecified ranae cf ALL counts, or 


a. on the 'nth® throuoh t'mth® calls of a particular 


procedure. 


The ALL count gives the number of times that debuo has 
found an "NT Re » "EXT®s or "STM* during the execution of 


ycur orocedure. 


When you specify TALL? and Coptionally) a 


actions aponly to that ranece (which defaulte 
ALL counts. 


ranqe» your 


te 1 = ENO) of 


Wren you specify a orocedure and (optionally) a ranaee your 


actions apply te that procedures but only if 
durina that ranae of ALL counts. 


it is called 


Wren you specify a procedure followed by RELATIVE and 
(cotionally) a rances your actions apoly to the 
"ranoe*start' throuch ‘range-end! calls to that procedure. 


For examoles» 


MONITOR your _mod.cet_name RELATIVE 27 


monitors only the 27th call of that procedure. 


LEVEL determines how your dedugagingo action will be applied 
tc procedures which your specified procedure calls. By 
defaults your debuaqgina action apolies to alt catled 
proceduress to alt orocedures which they calls etc, 


You may limit the number of descendants 


to which your 


debuaoaina avnolies by usinae the LEVEL clause. The Level 
number you specify limits your debuogine action to that 
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** Nebug Action Controls (Continued) 


number of descendants. For examples aiven 
flow of executions : 


a ="> b (prec. tat 
b 27> C 
b <== ¢ doroc ‘cc? 
pb “=> .d 
d *"> e 
qd <"= e 
b <== d: 
a <@= b 


the debuq command 
MONITOR a 


will show menitor tines for procedures ap 
The debuaq command 


MONITOR a LEVEL 2 

will show monitor Lines for a» b» cs» and ds» 
MONTTOR a LEVEL 1 

will show monitor Lines for a and bs and 
MONTTOR a LEVEL 0 

Ctienau monitor tines only for procedure a 

2002245.3 * Interactive Debua Input 
lf you have used the 'f/1' options you 


area which is connected to your termina 
output. This proaram will oass information 


1983 


AL 


9992 


REV. A PAGE j 


the following 


calls poroc 


returns) 


Hr) 


be c» de and e. 


e 


will provide 
interactive debug commands to a proaram in the time=sharino 
i for input and 
debua 


to the 


package in your procoram and oet information back from your 


procrams which may then be displayed on your 
The syntax of the interactive debua commands 
2002.4 Dbwrite Module 


Ycu may use the dbwrite module to see 
variables durina the executicn cof your opr 


put calls to these procedures in your modules 
wish. These allow you to print labeled numberse 


bcoleanse and internal (hex) reoresentations 
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202.224 Dowrite Module (Continued) 


structures» symbolics» etc. 


You have comoptete control durina the execution 

procram as to whether these values are printed o 
Your use oft the */¥#* debuc conmand or the OBWRITE st 
determines if dbwrite will print anythina» and when. 


You can see that the main disadvantaae to this mo 


that you Lack flexibility» and that you must 
module to make chanoes. 


20.2.9 Arm Module 


You may use the arm mcedule to Let your proaram 
own errors without your proaram beine DS-ed. 


hand 


of your 
r not. 
atement 


dule is 


recomoile your 


te its 


When you ari 


ycur programs you specify oy 4a Darameter the procedure that 
ycu wish to be called upon encounterina a processor 
or program trap. Durinae the process ef handlina the errcre 
you mays if you wishe call @ routine in the arm module to 


fermat and toptionally) display the exact 
error. 


Cause 


error 


cf the 


Tre arm module stores much information about the error in 


the ‘arm_parameters' data block. Your program 


this information as needed. 


may 


access 


You would normally use the arm module to orovide a araceful 
termination for - your prooram (close files» write error 
mesgsaacess etce.). Howevere you could in orinciole 
from the error condition. and resume normal execution of 
yeur programs but you would encounter great difficulties. 


The arm module processes only the first call on the 
procedure. Others are iancred. When you are usinga the 


debug packages the debug module makes the first 


your program's call oets ‘iqnored. 


ca 


Howevers after ycur prearam has an errors you o 
aoain arm your procram. Note also that you may change your 


error handler routine if you wishes since arm keeps 
data block. 


PTR° TO PROC variable in the ‘arm parameters! 


WARNING: If you use ‘prog.arm* in your modulegs 
interfere with the correct operation of t 


and debug medules. 


recover 


armina 


tl» so 


ay once 


it in a 


you may 
he arm 


NOTE: you may save almost iCkd in your proocram by puttine 
‘arm.eoet_errcr_messaqe? and its associated 


‘arm.oeerror_messaoe_tables' in an overlay. 
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You may write your orogram in such a way that 
debucaing actions internaliy. You accomplish this 
may 


MANUAL 


of the 'dbstatus' data black. Your prooram 


this plock to determine if debua ic monitorinas 
statement monitcrings or tracina. Your 
flaas in this btock which cause debua te beain 
monitorinas dbwritinas statement monitocrinas 


As you Can see» we have aiver you a 


proaram 


Lot of 


inolementina your own debuacgino methods 


orearam. 
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pow 
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Appendix A SPRITE STANDARD OPERATIONS 
FUNCTIONS 
abe 
FUNCTION: to return the absolute vatue of eith 


REAL or an INTEGER. 


RETURN TYPES REAL or INTEGER (dependine on the 
absolute value desired). 


PARAMETERS: ft Type Access Description 
1 INTEGER CONST number whose ab 
or REAL value is soucht 


edit number 


FUNCTION? to return a strino which is the nume 
value of the ist parameter as format 


er a 


solute 


ric 
ted 


by the picture specified by the second 


parameter. See Apoendix B «PICTURES) 


RETURN TYPE: STRINGEt(n) OF CHARe where n is unique 


determined from: the picture oaramete 
PARAMETER: tl Type Access Description 
1  inteoer CONST numeric value 


to be edited 


2 strine CONST strina which 
describes a 
oicture (See 
Appendix bB) 
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Appendix A 


fill array 


FUNCTIONS 


RETURN TYPE: 


PARAMETERS 


fill ostrine 


FUNCTION: 


RETURN TYPE: 


PARAMETER: 


index 


FUNCTION: 


RETURN TYPE: | 


PARAMETERS 3 
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SPRITE STANDARD OPERATIONS (Continued) 


to set all elements of a one dimensional 
array to the specified value, 


ARRAY €<ranoe>}) OF <elem types 
(determined from destination array 
context) 
i Tyoe Access Descripticn 

value to be put into 
destination 

array elements 


1 Any CONST 


to set a strina to the replication of 
a soecified strina value. 


STRING (n) OF <string types 
(determined from destination string 
context) 

Nescriotion 


it Type Access 


1 strine. CONST the strina to be 
replicated throuchout 
the destination strina 


returns the (nasition) index of the first 
occurrences of the ist string parameter 

in the 2nd strino parameter. 

It returns 0 if there are no cccurrences. 


O .. strina_2_lenoth 


4 Type Access Description 


{ string CONST substrina scuaht 


2 strine CONST string searched for 


ist parameter 
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Appendix A SPRITE STANDARD SPERATIONS (Continued) 


index _any 


FUNCTION: 
RETURN TYPE: 


PARAMETERS: 


index_inc 


FUNCTIONS 


RETURN TYPE: 


PARAMETERS: 


returns the Cposition) index of the first 
cccurrence of any elements from the ist 
string parameter that is in the end strina 
parameter. I[t returns 0 if there are no 
occurrences. 


0 .. Strina_2_lenath 
#» Type Access Description 


1 etrina CONST string whose elements 
are sought 


2 strine CONST strine searched for 
elements cf tst 
parameter 


returns the (Cnosition) index of the first 
occurrence cf the ist strine parameter in 
the 2nd strine parameter where the occur@ 
rence becins on a multiple of the 3rd 
numeric parameter (le ntlivs entle etc.) It 
returns 0 if there are no occurrences. 


OQ .- strine_2_lencth 


# Type Accese Nescription 

1 string. CONST substrina sought 

2 strina CONST string to be searched 
3 12.2100 CONST increment between 


comparisons 
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index _none 


FUNCTION: 


RETURN TYPES 


PARAMETERS: 


Lenath 
FUNCTION: 
RETURN TYPE: 
PARAMETERS ¢ 
Lwb 


FUNCTION: 


RETURN TYPE: 


PARAMETERS: 
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SPRITE STANDARD OQPERATIONS (Continued) 


returns the (position) index of the first 
occurrence of an element that is in the 2nd 
strina parameter and not in the lst 

string parameter. It returns 0 if every 
element of the 2nd string parameter is also 
an elenent of the lst strino varameter. 


O ee strina_2_lenath 


if Type Access Description 

1 strino CONST etrinag whose elements 
are sought 

2 strina CONST strine searched for 


returns the tenath of a strina. 


INTEGER. 
4 Type Access Description 
1 strine CONST the string whose 


lenath is the result 


returns the lLewer bound of an array index. 


a scalar cf the same type as the array 
index. 
Description 


ff Type “Access 


1 ARRAY CONST the array whose 
subs:cript jis to be 


examined 
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Apoendix A SPRITE STANDARD OPERATIONS (Continued) 


the subscript which 
is to be examined 


2 INTEGER CONST 


orec_ptr 
FUNCTION: returns a proc pointer to the orocedure 
aroqument. 
RETURN TYPE: PTR TO PROC type. 
PARAMETERS? 4 Type Access Desctriotion 
1 ee Any CONST procedure name or 
oroc modute name. 
procedure name 
**x Havino same parameter List» etc. 
ptr 
FUNCTION: returns a pointer to the argument. 
RETURN TYPE? PTR TO <araqument access? 
<argument type? 
The access and tyne is determined by the 
access and:type of the argument. 
PARAMETERS ¢ it Type Access Descripticn 
1 Any CONST declared data 
not an expression 
round (*) 


FUNCTION: 


returns the closest 
value. 


inteaer of a REAL 


RETURN TYPES INTECER 
PARAMETERS 3? i Type Access Descrintion 
1 RE AL CONST the expression whose 


closest inteoer is 
the resutt 
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RETURN TYPE: 


PARAMETERS: 


und 


FUNCTION & 


RETURN TYPE: 


PARAMETERS 


2. TRANSLATE_TABLE 
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returns a strinoe which is the value of the 
first string parameter transtated with the 
translate table specified by the second 
parameter. 


STRING (strino_t_tenath) OF EBCDIC 


it Type Access Descripticn 
1 etrino CONST string to be 
translated 
CONST Translate table 


to be used 


returns the upper bound of an array index. 


a scalar of the same type as the array index. 


tt Type Access Descripticn 

1 ARRAY CONST the array whose 
subsctriot is toe de 
examined 

2 INTEGER CUNST the subscript which 


is to be examined 


"THE INFORMATION CONTAINED IN THIS DOCUMENT IS CONFIDENTIAL AND PROPRIETARY TO BURROUGHS 
CORPORATION AND IS NOT TO SE DISCLOSED TO ANYONE OUTSIDE OF BURROUGHS CORPORATION WITHOUT 


THE PRIOR WRITTEN RELEASE FROM THE PATENT DIVISION OF BURROUGHS CORPORATION'! 


PAS 19681 REV 6-73 


Burroughs Corporation 
COMPUTER SYSTEMS GROUP 


PASADENA PLANT 


COMPANY CONFIDENTIAL 


Apoendix A SPRITE 


zone_index_any 


FUNCTIONS 


RETURN TYPES: 


PARAMETERS: 


Zone_index_ntne 


FUNCTION: 


RETURN 


PARAMETERS & 
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STANDARD OPERATIONS (Continued) 


returns the (nosition) index of the first 
occurrence of any element from the ist 
strina having a zone digit that 

also occurs in the 2@nd strina. 

It returns 0 if there are no 

occurrences. 


O oe strina_2_ lencoth 
K Type Access Descriotion 


1 strino CONST EBCOIC string whose 
zone diaits are sought 


2 strina CONST EBCDIC string searched 


returns the Cposition) index of the first 
occurrence of any element from the ist 

string with a zone dioit unlike any 

in the 2nd strina, It returns 0 if every zone 
diait of the ist strino is also a zone diait 
of the @nd strinc, 


O ee strina_2_Lenath 
it Type Access Description 


1 strino § CONST FBCDIC string whose 
zone digits are souaht 


2 string CONST EBCOIC ctrina searched 
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Aopendix A SPRITE STANDARD GPERATIGNS (Centinued) 
MOOQULES 


The following inodule descriptions describe the procedures 
and parameters for the standard modules “io* and "prog". 
Their use. in any module requires no. MID descriptien 
modifications as they are predefined. 


Any indicants used as parameter types should be understood 
as renpresentina generic types similar to their names. For 
example: FILE = any filer RECORD = any tleaitimate record 
type for the associated file. 


The names of the orocedures describe their function very 
clesely. 


prog 
400 


day 
PROC RETURNS STRING (€9)3 4 day of week 


date 
PROC RETURNS STRENG (6) OF HEX; 4 “AMDDYY form 


julian_date 
~PROC RETURNS STRING €5) OF HEX; % YYDOO form 


time 
PROC RETURNS STRING €10) OF HEX; % OOHHMMSSss form 


millisec 

PROC VREFURNS 0.. 99999999599; 4 0099999999 form 
arm 
PROC > % arm the processor 
dump 
PROC > 4 Dump to disk 


start trace 
PROC (trace _to_disk BOOLEAN) % CONSTANT! 


stop_trace 
PROC; 
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Appendix A SPRITE STANDARD GPERATIONS (Continued) 


stoo_ run 
PROC (with spo_err_msa BOOLEAN); %4 CONSTANT! 


wait 
PROC C€Cseconds t.2. 86499)5 


bet 
PROC (bet _numbder 0..29:999~ 
bet param UNIV PARAM STRING 2_TO_400_HEX)3 


Chance_memory_size 
PROC ¢(size_in_kd (7999..999)% % (+) gets moree 
% (=) returns same 


complex _wait 
PROC (C<event_list>)» use_exor 12.299) 
RETURNS 1.22995 ZASee comolex wait function below. 


move words 
PRUC 3 
4Z8ee move_words function below. 


DOMs 
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Apoendix A SPRITE STANDARD OPERATIONS (Continued) | 

é | 

: | 

me) | 

HOO | 

accept | 

{ 

| 


display 

PROC (messace PARAM_STRING_1_10_60)3 | 

disolay_Lines | 

PROC (messace PARAM_STRING_1_TO_72000» % SPECIAL! 
number _cf_ lines 1.22999)? % A Null Char (hex 00) | 


% must end each Line | 
% which is sherter than | 
4 ¢#2 characters. 


%Z open and ctese procedures 


open 
PROC (file FILE): % fileoMYUSE aives open type 


close 
PROC (file FILE)> 


clase_lock 
PROC Cfile FILE) 


ee 


close_release 
“PROC (file FILE): 


close purge 
PROC Cfile FILE)» 


close_remove 
PROC (file FILED 


wo 


close_crunch 
PROC. C file FILE)? 


close_remove_crunch 
PROC Cfile FILE) > 


close _no_rewind 
PROG (file FILE); 


close_release_no_rewind | 
PROC (file FILE): 
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SPRITE STANDARD OPERATIONS (Continued) 


4 1/0 precedures 


read %Z sequential 
PROC (file FILE» 

record VAR RECORD); 
write 4 sequential 
PROC (file FILE » 

record RECQRD)> 


read _datacomm 
PROC Cfile 
record VAR 


“FILE? © 
RECORD)> 


4Z file positionina procedures 

skip ‘ vA 

PROC (file FILE» 
recoras_to_Skip *95$99..9999)3 


position vA 


nen_orinter files 


4 <0 ™> backwards 


printer only 
PROC Cfile FILE» 
skip_to channel O.elles 4 0 = ianored | = T.U.oP. 
Lines _to_skip 022.9973 4 valid if skip = 0 
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write datacom 
PROC (file FILE» | 
record RECORD) > | 
read_random % random disk/pack onty | 
PROC (file FILE» 
record VAR RECORD» 
key 120999959999 )3 | 
write_random % random disk/pack only | 
PROC (file FILE» | 
record RECORC | 
key 16299999999)3 | 
oY . | 
pring 4 Printer only | 
PROC (file FILE» i 
record “ RECOROD> | 
skip lines “Oo.2)3 % overorints sinales double 
punch % €ard punch only 
PROC (file FILE» 
record RECORG 
stacker Ooe2) >: 
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{ 
Anoendix A SPRITE STANDARD OPERATIONS (Continued) 
prepare_user_defined_ouffer_ic | 
PROC (file FILE» 
buffer UNLV PARAMETRIC_HEX_STRING)3 


~ 


Must be called before any of the 
four followina procedures may 
be used. If catteds the four 
followima procedures must be 
used in place of reade writer 
read random and write _random 


nN eM N MSM N 


read_buffer . | 
PROC (file . FILE? 
buffer UNLV PARAMETRIC_HEX_STRING)3 | 
% Modulo and | 
% size must be | 
42 mod 4, Buffer 
% must ve same 
% as used in 
4% user_defined_| 
% buffer_io 


read_random_buffer 


PROC (file b PRES 
buffer : UNIV PARAMETRIC_HEX_ STRING,» 
key Lee OP 998999): % Modulo and 


% size must be 
4 mod 4 Kuffer 
% must be Sates 
% as used in 
% user_defined_ 
% buffer_io | 


write buffer 
PROC (file . FILEs | 
buffer UNLV PARAMETRIC HEX _STRING)$ | 

% Modulo and | 

4 size must be | 
%Z mod 4, Butfer 
% must be same 
4 as used in | 
vA user_defined_ 
% buffer_io | 
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Appendix A SPRITE STANDARD OPERATIONS (Gontinued) 
write random_buffer | 
PROC (file , FILE» 
buffer UNIV *PARAMETRIC_HEX_STRING» 
key 12699999999 )5 % Module and 
% size must be 
% mod 4 Buffer 
4 must oe Same | 
% as used in { 
vA user_def ined _ 
—% buffer_io | 
DONS | 


port_ito procedures are Listed in section 18.4. 


The syntax for the standard function complex_wait is: 


<aive_variable>, 7= proa.complex_wait 
(C<event_list> I> 
<use_exor>)5 


A teaal event within tne event_List is: 


ae numeric expression between 0 ana 86400 
be OOTINPUTPRESENT 
co <file_tyne>.<event_type> 


where file type is ore of the follcowina: 
| files 
porte 
subport 


and where event type is one of the fellowings 
DUTPUTEVENT » 
INPUTEVENTs 
CHANGEEVENT » 
READYEVENT 
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Awl Complex Wait Eunction (Continued) 


de. orimary.<event_tyoe> 


where primary is either a prooram name or a £TOQUE que 
name of tyoe STRING(E) 


and where <event_type> is one of the followina: 
CRORGUTPUTEVENT>» 
CRORINPUTEVENT > 
STUQOUTPUTEVENT> 
STOQINPUT EVENT 


The following table shows the leaak combinations: 


QUTPUTEVENT_ _INPUTEVENT CHANCE EVENT _ READYEVENT 
file false true false false 
port false true true true 


subport true . true true true 
Examples? 2 
Legal: 

file. INPUTEVENTs» OOTINPUTPREZSENT» port. READYEVENT 
Illegal: 

port .QUTPUTEVENT» file READYEVENT 


The order in which the events are tested is determined by 
<use_e@xpr>. If <use_expr> = ji» the events are tested in 
the order they are specified in the List; otherwise the 
first event tested is the cne which occupies the nth 
position in the lists» where n is the value of <use_expr>. 


A.2 Move Words Procedure 
This standard orocedures which should be used with extreme 
cautions allows you to force the compiler to aenerate MVH 
code in circumstances in which it would not normally do so. 


This orocedure takes two UNIV parameters: the source field 
and the destination field. No compile~time or run-time 
checks are made to see if these two fields are on MOD 4 
addresses» have MOD 4 sizes and have the same size. 


It is YOUR responsibility to insure that the MVW will 
function correctly when your program runs! The SPRITE aroup 


: : f : : : 

will react with aispleasure if you report “buas"® which turn 
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out to be caused by misuse of this standard 


For examples 


move_words (source_fields destinat ion_field); 


Mest voeople thinkine of usino the move words § 5 
function wilt have no need of it. SPRITE optimizes 


whenever it cén guarantee at compile time 


that i 


work. As a quide to those whe are interested» th 
conditions under which SPRITE makes this optimization are 


seelled out betorw. 


procedure. 


tandard 

to MVn 
t will 
e exact 


Both opnerands must nave the same size ‘and controller. The 


size and address of both operands must be 


4 


(This 


includes a MOD 4 offset from the beainnina of a déta blocks 
for examole.) Both operands must be fixed Lenoth. 
an cperand’s tyne is MUD 4e it cannot use indexina 


TX¥45 which is always MOO 4) or indirection. 


if indirection is invelveds the finat controller o 


UN. 
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Appendix B PICTURES 


A picture is aconstant cheracter strina 
‘the editina operations to be performed by ¢t 
functicn. SPRITE pictures are similar inc 
operation to COBUL oictures. 


Pictures are constructed from the special ch 
Z 68 I. Parentheses and period also have s 
in nictures. The order amona the characters 
sidnificant and determines the lLeacality of a 


The following special characters cause the s 
when they aopear in a picture. 


9 Move a digit from the ‘numeric 
strina results convertina§ it t 
character. 

Z Like 9» except reptace teadina 


source with blanks in the result. 
$ Insert a dollar sians may float. 


+ Insert a plus sian if the value is 
or a minus sian if it is neaative; 


- Like +» ‘but insert a blank if no 
float. 
8B Insert a blank. 
Ix Insert the character following th 
insert special ‘cnaracters + 7 §¥ 9 
o Period is reserved for future use 


used directly. (Use I. to insert 


Gther characters simoly insert 
character. 


As a shorthand notations dny character for t 
be fotlowed by a count in oarentheses whic 
many times the character is tc be renveateds 
of 99. For example: *9CS5S)/905)*#° igs 
*S9999/99S99', 


As noted in the tabler the special chara 
float. This means that if two or more 
characters are contiauouss that characte 
immediately to the Left of the first neon~z 
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aracters + = ¥ 

oecial meaninas 
+= § J 9 is 
oicture. 

pecified action 


source to the 
0 a numeric 


zeroes in the 


nen=necat ives 
may float. 


n=neaatives may 


e [ (used . to 
Z IB 2). 
and may not be 


a period). 


the svecified 


he Ix pair) may 
h specifies how 
up te a maximum 
the same as 


cters + = ¢ may 

of the same 
r will appear 
ero character. 
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Aopendix 8B PICTURES (Continued) 
Att 
character 
cembines 
insert. 

result = ™ 


previous character positions speci 
will be blank. Thuss a 
the zero suopression featur 

For examples value = “00023 

ly ata aa 

The order requirement amona the special 

is as follows: 


a) + or = must precede any Yr Ze 
0) + and * may not be mixed in th 
c) ¢ must fcllow +» 7 and precede 
d) Z must follow t+» ~~» §¥ and-prec 
e) 9 must follow te =» Gs Z 
Insertion characters may ‘anpear ‘any 
with no restriction. Howevers if they 
or Z field Cice.s +tetttott9 cr ZZ/7Z/2 
insected until the first non=zero 
transferred to the result. For example 


picture = "“ZZ/27/Z9" aives * 9/9 


9/99", 
Examples: 
9999 ZZ722 
t44Z79 Z9/997959 
+ZeZ7ZeZ72Z5 2.99 


ZZZ91.99B% 


1963 9992 


MANUAL 


REV. A 


SPECIFICATION 


PAGE 


1/e 


fied by the floatina 
fioatinag character 
e of Z with a simple 
picture = S+tte+O%> 


character + = 


$29 


2 


@ same picture 


Ze 9 

ede 9 
where in the picture 
appear in a flcating 
9) they will net be 
character has been 
x value = 000999¢ 


9* rather than " / 


ZZZ2Z9 


29399 


+9999 
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Anopendix B PICTURES (Continued) 
All orevious character positions soecified by the floatinsa 
character will be blank. Thuss a floatina character 
ccembines the zero suopression feature of Z with a simple 
insert. For example: value = “000234 picture = %+t+t+9"> 
result =" =22, a 


The order requirement amona the special character + =~ ¢ Z 9 
is as follows: 


a) + or = must precede any $7 Ze 9 

b) + and = may aoe he mixed in the same picture 

c) ¢ must follow +» = and precede Ze» 9 

d) ag must follow +» -, ¢ and precede 9 
wae e) 9 must follow ts ~»° ss Z 
Insertion characters. may ‘appear “anywhere in the picture 
with no restriction. However» if they appear in a flcatine 


or Z field Ci.ser.s ttotttet+t+9 cr ZZ/ZZ/Z9) they will not be 
inserted until the first nonzero character has been 


transferred to the result. For example: value = 000999» 
picture =- "Z2Z/ZZ/Z9" aives *%* 9/99" rather than " / 
9/99", 


Examples: 


9999 ZZ22 ZZ2Z9 
+++7Z79 29/99/99 29399 
+Ze9ZZZeZ7ZZ1.99 +939 


ZZZ9T.99BZ 
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Aooendix C FILE ATTRIBUTES 


As File Attributes are déefinec by the CSG FILE HANDLING 
Standard (1955 2926)» they are not an inteoral oart of the 
SPRITE Lanquace? howevers as they do apnoear in the source 
text of a SPRITE programs tne’ File Attributes supported by 
SPRITE are included here for cocumentation and reference. 


Supoorted File Attributes 


The format of each entry in the taole describina the file 
attributes iss ; 


ATTRIBUTE NAME 


Aoplicable peripheratss RKead/Write Status 
TYPE» includino ‘Mnemonic names 
Defaults» if any 


Brief description 


Tre read/write status indicates when the attribute can be 
read or written, - 


The description section also rotes nonstandard attributes 
ard mnon=e¢tandard ‘interpretations of otherwise standard 
attributes. See the File HandlLine Standard (FHS) for more 
detail where necessary. 


A read/write status of assigned means that a physical file 
must-.be associated with the ocened tonical file. 


The supported file attributes are as felloans: 
ACCESSMUODE 
Disk/Diskpacks Read: anytimer Writez closed 
Mnemonics SEQUENTIAL» RANDOM 
Default: SEQUENTIAL 


Soecifies the disk access technique. 
Nonstandard. 


“THE INFORMATION CONTAINED IN THIS DOCUMENT 1S CONFIDENTIAL AND PROPRIETARY TO BURROUGHS 
CORPORATION AND IS NOT TO BE DISCLOSED TO ANYONE OUTSIDE OF BURROUGHS CORPORATION WITHOUT 
THE PRIOR WRITTEN RELEASE FROM THE PATENT DIVISION OF BURROUGHS CORPORATION” PAS 19681 REV 6°73 


1982 9992 


B2000/2000/4000 


Burroughs Corporation &) 
SPRITE REFERENCE MANUAL 


COMPUTER SYSTEMS GROUP 
PASADENA PLANT 


REV. A PAGE 


PRODUCT SPECIFICATION 


COMPANY CONFIDENTIAL 


Anvoendix C FILE ATTRIBUTES 


As File Attributes are definec by the CSG FILE HANOLING 
Standard (1955 2926)» they are not an inteoral part of the 
SPRITE Lanquaces however» as they do apvear in the source 
text of a SPRITE procram» tne File Attributes supported by 
SPRITE are included here for cocumentation ana reference. 


Supoorted File Attributes 


The format of each ney im the table describina the file 
ae PCIE UTS is: 


ATTRIBUTE NAME 


Aoplicable peripherals; Read/Write Status 
TYPE» includina ‘mnemonic names 
Default» if any 


Brief description 


The read/write status indicates when the attribute can be 
read or written, 


The description section also rotes nonstandard attribdutes 
ard noensstandard interpretations of otherwise standara 
attributes. See the File Handline Standard (FHS) for more 
detail where necessary. 


A read/write status of assianed means that a physical file 
must--be associated with the ocened looicat file. 


The supported file attributes are as follows: 
ACCESSMODE 


Disk/Qiskpacks Read: anytime» Write: closed 
Mnemonic: SEQUENTIAL» RANOOM 
Default: SEQUENTIAL 


Snecifies the disk access technique. 
Nonstandard. 
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Apoendix C FILE ATTRIBUTES (Continued) 


AREAS 


DISK/NISKPACKS Read: anytimes Write: closed 
Intecer: 0.2.99 UY means 100 
Default: 20 


Specifies the maximum numoer of areas the file 
may oOCCUDY. 


NUTE  Toanored when openina a permanent file. 
AREASTZE 


DISK/®TSKPACK+ Read? anytimes Write: closed 
Integers 1..999% °99 
Default? 1000 ¢a. recximately) 


Specifies the number cf records in an area. 


NOTE: Must be evenly divisible by ‘the number of 
records in a block. At declaration ‘times 
the default or actual value is adjusted to 
meet this condition. Non=standard (see 
FHS = AREALENC TH), 


AUTOPRINT 


PRINTER* Read: anytimer Write? anytime 
BOGLEAN 
Default: FALSE 


Causes files: that have been spooled to. an 
intermediate peripheral to be printed 
autcmatically at E0J. Non-standard. 


BACKUPKIND 


PRINTER/PUNCHC *) 3 Read: anytime@d*)s»s Write: closed 
Mnemonics DISK» DISKPACKs» DONTCAREC«&)» TAPE 
Default: DONTCARE 


Specifies the intermediate peripheral to which 
the lLocical file witl be spooted. DONTCARE 
creates the file on the system's default backup 
media. 


NOTE: Should only te used when BACKUPPERMITTED = 
MUSTBACKUP, Non=standard as this 
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Anpendix C FILE ATTRIBUTES (Continued) 


AREAS 


DISK/DISKPACK$ Read: anytime» Write: closed 
Intecer: 0..99 0 méans 100 
Default: 20 


Specifies the maximum number of areas the fils 
may occupy. 


NOTE:  Tanored when openina a permanent file. 
AREASIZE 


DISKs2ISKPACKs Read: anytimes Write? closed 
Integer: 1..999% 999 | 
Default: 1000 (ac }eximately) 


Specifies the number of records in an area. 


NOTE: Must de evenly divisible by the number: of 
records ina block. At declaration times 
the default or actual value is adjusted tc 
meet this ccndition. Non=standard (see 
FHS = AREALZNETH). 


AUTOPRINT 
PRINTER* Read: anytime» Write: anytime 
BOOLEAN 
Default: FALSE 


Causes files. that have been spooled to an 
intermediate peripheral to be printed 
autcmatically at EQJ. Non-standard. 


BACKUPKINO 


PRINTER/PUNCH( *) > Read: anytime¢*)» write: closed 
Mnemonic: DIEKs DISKPACK» DONTCAREC «&)» TAPE 
Default: DONTCARE 


Soecifies the intermediate peripheral to which 
the toaical file will be spooted. DONTCARE 
creates the file cn the system's default backup 
media. 


NOTE: Should only te used when BACKUPPERMITTED = 
MUSTBACKUP, Nonstandard as this 
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ATTRIBUTES (Continued) 


attrioute modifies KIND. 


BACKUPPERMITTED 


BLOCK 


PRINTER/PUNCH(*)3 Read: anytimes Write? closed 
Mnemonic? QJONTBACKUPs DQONTCAREs MUSTBACKUP 
Default: OUNTCARE 


Specifies whether an intermediate peripheral tay 
pe associated with the togical file. 


Generals Read? anytimes Write? never 
Integer: 0..99999999 


Returns the number of the Logical block 
referenced in the Last I/0 statement. 


BLOC KSIZE 


Generals Read: anytime» Write: closed 
Intecar: 122.999999 
Default: size of cone recerd 


Specifies the tenoth of a block in diaits. 
Shoutd be a multiple of the size of a record 
CMAXRECSIZE). 


BLOCKS TRUCTURE 


Generals Reads anytimes Write: closed 
Mnemonic: FIXED» VARTABLEC*) 
Default: FIXED 


Specifies the format of the records in a block. 


BUFFERS 


“Generals Read: anytimes Write? closed 


Integer? 0.-9° 0 is special 
Defaults 1 


Specifies the number of buffers assigned to the 
file. Non=standarc interpretation of zerop 
indicatino that the user will suoply his own 
butfer. : 
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Appendix C FILE ATTRIBUTES (Continued) 
attribute modifies KIND. 
BACKUPPERMITTED 
PRINTER/PUNCH( *)% Read? anytime» Write: clcsea 
Mnemonic: DONTBACKUFs» QDONTCARE» MUSTBACKUP 
Default: DONTCARE 


Specifies whether an intermediate perionheral may 
pe associated with the Logical file. 


BLOCK 


Generals Read: anytimes Write? never 
Integer: 0..99999999 


Returns the number of the Logical plock 
referenced in the Last I/O statement. 


BLOCKSIZE 

Generals Read: anytime» Write: closed 

Intecar: 1..999999 

Default: size of cne record 

Specifies the tleneth of a block in diaits. 

Should be a multiple of the size of a recerd 

CMAXRECSIZE). 
BLOCKSTRUCTURE 

Generals Read: anytimes Write: closed 

Mnemonic: FIXED» VARIABLE(C#) 

Oefault: FIXED 

Specifies the format of the records in a block. 
BUFFERS 

‘Generals Read: anytime» Write: closed 

Integer: 0..9» 0 is sSvnecial 


Default: 1 


Specifies the numcer of buffers assigned to the 


file. Nonwstandarc interpretaticn of zerc, 
indicatino that the user will suoply his own 
buffer. . 
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Appendix C FILE ATTRIBUTES (Continued) 
CREATIONDATE 


TAPES Read Only: Assianed 
Integer: DISPLAY 0..99366 


Returns the julian date CYYDDO format) that the 
file was created. 


CURRENTBLUCK 


Generals Read: ‘anytimesr Write: never 
Inteaqer: 1.2..999999 


Returns the size of the block currently in: use. 


NOTES This is always equal to BLOCKSIZE» excent 
for short block tane files (*), 


CURRENTRECORD 


Generals Read Unty: anytime 
{Inteaer? 1..%9996 


Return the size of the Last record referenced by 
an I/Q statement. 


NOTE: This value is always equal to MAXRECSIZE. 
CYCLE 


TAPE? Read: assiagnads Write: closed 
Integer: 1.2.99 : 
Defaults 1 


Specifies different aenerations of a permanent 
file. 


The value of CYCLE attribute may be set only when 
the file is closed. 


DENSITY ¢#) 


TAPE? Read? anytime(*)» Write: closed 
Mnemonic: BPI556-e 3P1800» BPI1600» BPI6250 
Default: BPI1600 : 


Specifies the recorcina density of a maaonetic 
tape file. 
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DIRECTION 


TAPE*® Read? anytime» Write: closed 
Mnemonic? FORWARD» REVERSE 
Defaults FORWARD 


Specifies the direction in which records of the 
file will be accessed. 


EXTMODE 


PUNCHs Read? anytimere Write: closed 
Mnemonics EBCDIC 


Specifies the character type of the file. 
FAMILYNAME 


DISK/NISKPACK/PRINTER/PUNCH/TAPE> 
Read: anytimer Writes closed 
STRINE (6) 


Specifies the family on which the file resides. 
Non™standard interpretation for orinter and 
ounchs which specifies the form name to be used 
(see FHS = FORMID). 


FILENAME 


Generals Read: anyt imes Write: clesed 
STRING (6) 
Detault: Value cf INTNAME attribute- 


Specifies the external file name te be associated 
with the logical fite. 


FILESTATUS 


Generals Read Untys anytime 
Mnemonics UPENs CLOSED 


Returns whether or net the file is currently 
open. Nonw=standard (see FHS = OPEN). 
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Appendix C FILE ATTRIBUTES (Continued) 
FURCELD 


DISK/DISKPACKs Read? anytimes Write: anytime 
BOOLEAN 
Default: FALSE 


Forces a physical [/0 to retrieve the records 
does not examine buffers for the block. 


NOTES <Apnlicable ecnty to RANDOM access files. 
Non=standard. 


FURMS 


PRINTER/PUNCHs Read? anytimes Write: closed 
BOOLEAN : 
Default: FALSE 


Soecifies that the file requires speciat forms 
when printed/punched. Non-standard (see FHS = 
FORMIOD). 


INTNAWE | 


Generals Read? anytimes Write: declaration only 

STRING ¢€6) 

Default: first six characters of internal file 
name translated to uppercase, | 


Specifies the name by which the file may be Label 
equated, Non=standard interoretation. 


KEND 


Generals Read? anytimer Write: closed 
Mnemonic: DISK» DISKPACKs PRINTER» PUNCH 

READER» RENOTEs TAPE» poCPp» ISC 
Default: READER if MYUSE = IN 

PRINTER if MYUSE QUT 

DISKCe) if MYUSE = £0 or Of 


if 


Specifies the peripheral associated with the 
Lcaical file. REMOTE is the KIND required to do 
datacomm I/C. 
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LABEL 


Generals Reads anytimel(*)» Write: closed 
Mnemonic: FEBCDICLABEL» OMITTED 
Default: EBCDICLABEL 


Specifies whether cr not the file has Label 
recerds associated with it. 


LASTRECORD 


DISKO ISKPACEH 5 Read Only: assianed 
“Inteéaqer? 0..99999999 


Returns the record number of :the last record in 
the physical file. 


NOTE: Way not be correct durino file expoansion. 
MAXRECSIZE 

Cenerals Reads anytimes Write: closed 

Integer? 1..39996 


Default: size of one racord 


Specifies the $ize in digits of a records or the 
maximum size of a VARIABLE Lenath record (*), 


NOTE: At declaration time» any supplied value 
‘will be'’overriden with the record size of 
the file. 


MYUSE 
Generals Reads anytimer Write: closed 
integer: IN» I0e OL» OUT» EXTEND (*) 
Default: 0 


Specifies how the file will be used. Non-stanard 
values are Of and EXTEND (see FHS = NEWFILE). 


NEXTRECGRD | 


Generals Read Only: “anytime 
Inteoers 02299999999 


Returns the current position of the file. 
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Appendix C FILE ATTRIBUTES (Continued) 
OPTIONAL 


Generals Read: anytimer. Write: closed 
BOOLEAN 
Default: FALSE 


Specifies whether or not the assignment of a 
permanent file is ontional. 


PARITY 


TAPE* Read: anytimes Writes closed 
Mnemonic: EVENs ODD 
Oefault: ODD 


Indicates the parity to be uged when writine a 
tape file. 


NOTE: EVEN parity may be used with ?@"track tapes 
only. 


PROTECTION 


DISK/DISKPACKs Reads anytimes Writes closed 
Mnemonic: ABNORMALSAVE» TEMPGRARY 
Default: TEMPORARY 


Specifies whether or not a file open at abnormal 
EGJ will be saved (and entered in the directory). 


SAVEFACTOR 


TAPE? Read: anytimes Writes closed 
[ntecer: 0.2999 
Default; 999 


Specifies the expiration date of the file in 
terms of days ‘'oast the creation date. 
Non=standard default value. 


SECURITYFAMILY 


DISK/DISKPACKS Read? anytimes Write: closed 
STRING ¢€6) ; , 
Default: DISH 


Snoecifies the family name on which the auard file 
for the file resides. Non-standard. 
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ATTRIBUTES (Continued) 


SECURITY GUARD 


DISK/DISKPACKs Read: anytimer Write: closed 
STRING (6) , 
Default: NONE» must be set if needed 


Specifies the file rame of the auard file for the 
physical file. 


SECURITYTYPE 


DISK/OISKPACKs Read: anytime» Write: closed 
Mnemonics DEFAULT» CUARDEDs» NONEs PRIVATE>s 
PUBLIC 


Default: ‘DEFAULT 


Epecifies whos cther than the owner (creator) may 
access the permanent file. Non=standard values 
are OEFAULT and NCNE. DEFAULT caives the user's 
USERHQ default security. NONE produces an 
unsecured file. 


SECURITYUSE 


DISK/DISKPACKs Read: anytimes Write: closed 
Mnemonic: INe TOs OUT» SECURED 
Defeult: IO 


Soecifies the manner in which a file protected by 
security may be accessed. 


NOTE: The use of a quard fite overrides this 
attribute furection. 


SENSITIVEDATA 


DISK/DISKPACKs Read: anytime» Write: closed 
ROOLEAN 
Default: FALSE 


Specifies whether or not the disk sectors to be 
returned when the file is purged are to be 
overwritten with an arbitrary pattern so that the 
ori@inal data is erased. 
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Appendix C FILE ATTRIBUTES (Continued) 
SERIALNO 


TAPE*s Read Only: assianed 
STRING (5) 


Returns the serial number of the labeled tape 
containina the pnysical file. 


SINGLEUNIT 


DISKPACKS’ Reads: anytimes Write: closed 
BOOLEAN , 
Default: FALSE 


Soecifies whether or not all areas of the file 
are tc be contained on a sinale member of a 
family. 


UNTQUENAME 


DISK/DISKPACKs Read: anytimes Write: closed 
Mnemonics NULL»s PROCESSOR» WORK 
Defaults NULL 


Soecifies whether or not tne file name is to be 
altered in:a unique fashion for a particular 
execution by the processor number only or the 
processor number and the mix number CWORK). NULL 
indicates no uniqueness. Nonstandard. 


VOLUMETNOEX 


TAPE# Read nly: assianed 
Integers 1..999 


Specifies the reat number tnot the same as 
SERTALNOQ) of the pohysical file. 
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Syntax diagrams are used to describe the eyntactic 
attributes of lanaguaces in a readable manner. Syntax 
diaagrams show hcew to combine elements of the lanauaae being 
described. These combinaticns are shown by the onewway 
paths that connect lLanaguaocoe elements. .The direction of 
flow is implied by the anales at which paths join or fork. 
Lanaouage elements are orimitive symbols (Ce.a.» ASSERT» 3m 
and ophrase=names (e.Q.5 statements identifier)» which 
represent cotlections of primitives. Each phrase name is 
defined by a syntax diagram that shows what collections of 
primitives it represents. To determine atlewable 
cembinations of lLancuace primitives» replace a phrase name 
by any of the coltections of primitives it reoresents. 


The followine rules define the manner in which syntax 
diagrams are constructed and the meanino of the special 
Characters used in the diagrams. 


1. Path Characters and Directions 


Continuous underline characters (___) denote horizontal 
directions either left to riaht or richt to left. 


Vertical bars (1) denote uoward or downward directions. 


Directional slashes (/ and \) are used to indicate a 
branch in the path or a Change in the direction of a 
oath. To fotlow the syntax diaorame start with the 
itém beino defined Cunper Left) and follow the path. 


Directional slashes are also used to fold a ltona line. 
Foldino cf the main path te a continuation line must be 
the full width of the diacram from the rieht marcin to 
the Left marcin. For example: 


main path fold 
H 


A ES ee a te ANG cbse 23 EXAM PLE. 2 OF oe, 
\ 
Sh ca ess stg eae aE gO Stee ene nN ah se Oh ae ene il ts / 
/ ‘ 
\____THE__. FOLDING _~__OF____A___MAIN____PATH___._ 
\ 
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2e Repetitions 
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SPECIFICATION 


Repetitions are always shown by a counter=clockwise 


tcop. The return path travels § (fr 


om richt to 


left» 


above the repeated item. Constructs which have zero or 


more eccurrences of a sinole item a 


__ separator, 


SS em 
~ 
“ 


An inteceres preceded by a slash ¢ 
reverse stash (\)» denotes the maxi 
a path may be traversed. 


Examples: 
a fBN 2S maximum of thre 


An integers preceded by a reve 
fotlowed by a slash (/) prior to th 


re shown as 


the minimum number of times the path must be traversed. 


Examole: 
minimum of two 


\2/ 


If a minimum and a maximum number 


soecifiedse and the minimum and maximum numbers are the 


same» the number then enecifies th 
traverses. 


Examples 
Saf SN _. exactly ‘thre 
\a/ 


Specification of path traverses ma 
Line of the path or in a repetition 


Ne AION 


- id eee eT Cit _.\ 


emmy 
a 


\ 
| 
{ 
/) and followed by a 
mum number of times 
e traverses 
ree stash (NX) and 
e constructs denotes 
traverses 
of traverses are 
e exact number of 
e traverses 
y appear in the main 
Loop: 
eM rt EDEN DSN DD rts yo 
\ 
id / 
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Both of the examples above mean the 
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numbers 


are different because they occur in different parts of 


the Loon. 


tw 


. Start of Diaaram 


A railroad syntax diacram is started by the phrase name 


startina at the Left marain on a line of 


the main path beains. 


4e Alternate paths 


its 


own 


Alternate paths must altways be vertically se 


from the main path» or other alternate 
Line of blanks between directional 
directional slashes are used denotina 
return for asingle alternate path. 


the 
A combination of 


pathse 


where 


parated 


by one 
slashes. Two 


start and 


directional elashes and vertical bars is used to denote 


the start ana return of multiple alternate paths. For 
example: 

diaaram 

} 

\ 

Nance Sf Mannie Nie en Ce Se Pie No 2 ee 
\ 4 


\__sinele_.alternate__/ 


iaoram 


nth__ alternate / 


ae oo eae ee a ne me 


5. Termination of Diaaram 


_ ee 


a ee 


A railroad syntax diacram is terminated by a vertical 
Line down the riaht hand edoe of the diaaram. 
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example 
) 
{ 
Nii ces 7 ee short_ 3. OM AO Ma MWe hn ee ee 
\ 
( 
j 
(end) 


6. Syntactic Constructs 


Primitives that are snecial characters or Lowercase 
reserved words are detimited by a‘blank befiore and 
after them to provide visual separation from the path. 


Phrase names are lowercase words. These and 
uppercase primitives (key words or reserved words) are 
not delimited by blanks but are immediately adjacent toa 
the path's underline characters, Phrase names may be 
immediately preceded by a comment word and a_e colon. 
The comment and cclon may be on the Line directly abcve 
the phrase name or on the same Line as the phrase name. 


diagram 
\ 
tot eee 
| { ETT ere oes PS Poe inins 
| Vy / \ 
Nee tee Gh ee at he er see ee ee TD crag Pag Ts tye oo Deon eh 
aa=> Vo ere 7 =="> \ 
PN be ' 
| { \ J 
Ne ee ' j 
==45 V4 
i 
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Tre SPRITE syntax diaarams below specify the syntax for the 
ccmptete lLanocuace design although not all constructs have 
been implemented. 


interface descrinotion 
4 


Mo ge Si rk eects eh oe, UA ee ae we ot 
| prooaram names / \ 
\ __identifier__PROG__\N component__/_._ GORP_o 


4 


a“ 
t 
° 
° 
3 
3 
© 
=| 
Oe 
~ 
-—--F 


compenent 


VN to medule description ___ o.oo te ae he eee & en, 

{ ; \ 

WN tere data -detaniweron. 2 ee ee Se Re ee ee ee ! 

{ \l 

tN bee a eo Tes Oe NO NO ONS os Ba a ee 1 

{ \J 

[Net est POrt, GCOTINTONs 222 ee See ee Ee ee es \ 

| \l 

Noose so NSP EIS: Oe Tin Pt ON ee Se re a i 

) \l 

a nee eet ae tyoe definiticn ______ Oe es ee ee ee eae OB ete { 

i ' \I 

HONE oe Onset oe constant definition___ ~~ bee tl STAD ois! Aran aknse ete hee { 

! Nd 

, eT Rees GeO Sr AT TON 0LOC Wes ou es es bet oe a ee ee { 
\d 

J 

comment 

! 

BREN ah ee ate ake os ete 

| / \ 

: None Sek COM reas 2 Ni ee SA text ek {je MG Cs 4 oe 8 es aero 
\ comment __/ 


a“ 
~ 
— me 
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knows 

| 

| 

ne ae Are Sie ee BL oi Ant tn Oe ae 

| / module name? \ 

Ne nN eto identifier __ oo /oo. Le INOW Ao ee 
\ ALL / \_ KNOWS / \ 


module description 
| 
! ‘module name: 


\..__identifier______ MOD_ es oh ee oe Sag tae 
\i LL ENVEDEPENDENT___/ \ 
Byatt cae cect a cena ns ee et alae a pe cen eats / 
/ 
be ite, es oe it A ee ho Pita t 2 ie 
! / entry point: \ 
Ni LAN ls fot Pu Vt mete precedure description __/__.-. (90, Sere ee eee ee 
\ knows 7 / NL? 7 \ 
NE fet Fn comment oo / ( 
i 
{ 
precedure deecription 
I 
j 
! 
i proc nafeé 
\ _.identifier___ PROC___ |. parameters = return value oo 
\ Ne te ea fee er DN Nast Be Rta a ot ag / \ 
RN TY aoe beni embod Aechmea ot tet / ' 
{ 
i 
parameters 
{ 
i Bad eee ah ak et SIE eso Se ee Ag Oh tee eg ot ee a Batt 
i / param: \ \ 
Ngee © 2c Nec tdent. 7 Sa Pad atle a a sash cst ora ates eh ore sk type,_/ ~. ) LLL 
\U.CONST of NL _LUNIVL_/ \ 
\__ _VAR___/ 1 
NVALUE ¢ { 
1 
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Apnendix 0 SYNTAX DIAGRAMS (Continued) 


return value 
t 


! 
\__ RETURNS 


pass: VDC he ott ts th a eee we SNe 2 ad ie ot ele ns in a 
\ 
i 
4 
data detinition 
{ ‘ 
Woe ey ey de An as : as SO Ee Ee Ae ee 
{ data block name: / \ 
\ identifier ~~. DATA___ Ne SA Fae es ale as variable oo ' sae 
\ 
4 
( 
variable 
] 
et ae es ins oes 
| / variable names \ 
M2 et \___identifier___/___~_type_ Be, yk te ye a 
\uUinit value__/ \ 
i 
j 
init value 
1 
| 
N et sos oa Ree hd oe ees CONST-aNn Us OX 09 22.2 oe Se te Se eee he oe 
\ 
j 
§ 
fite definition 
{ exert int en Pt os et Ly 
! file block name? / \ 
Nee ee identitier____ _FIJLE_ \__file description__/___ 
\ 
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find statement 
! 

{ : 
\ FIND find control ___WHERE__ find condition. 


\ 
eo es So sth nls ss cS / 
/ 
\.U_THEN  ustatements  ELSE_ statements DNIF__ 
ei Me Cm Re ESS / \ 
i 
i 
find contrel 
{ 
{ 
\ pointer: 
UN oP OCONEE VOR Seo oe te Oe et INTG UL Larraysprimary_ 
| \ index: / \ 
! -NLAND LU identifier_/ i 
| { 
I elemert pointer: predecessor pointer: i 
\_.__identifier___ WITH =o identifier ___. 1 
Se ee ee nee ee \ i 
Fea Cg ae A Le) NETS es ESO a ae rt / 1 
Pi List pointer: i 
\ FROM primary oo. USING LU Ulink fields. { 
\t 
t 
{ 
Link fields 
{ 
Palette ep aia nee 
! / field name: \ 
Nene. Neco cp TGentittrer. 2 Se oe aE ee ee paths hia EV ty te AOD, oe 
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find condition 
| 
| 


PN EN SIE: DMV as ae Bo re ne oe ee Se ee 
| NU MAX _/ \ 
| { 
WWoLU find erimary ooo Se eee tkeysexpraession___ wen of 
' : ee eS , \l 
| WV. < fi j 
! Ln . <e /\ i 
! PX oe ed i 
i No 8S Vee’ ‘ 
| { 
1 set mask: 1 
Vu. -find erimary ~~ * (ooo I ie est east ee te te Se ae i 
\s= / \I 
i 
1 
generate statement 
| 
I 
1 . 
' pointer: 
XC CENERAT ES. CEXTERNA LW OR UMN Yo oe ee ee ee a 
Ne LOCAL 7/ \ inteaer’ / \ 
\_ULU_LLENGTH___usimpte exor___/ { 
{ 
1 
exor 
J 
PS egttnot eh arent a tee ss et 
i / ne ey \ 
\ | \_ 4 __/ 1 
| { i 
\ \ conjunctive expr ___ Yok i Ss ote i aw ee a 
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t 
RO ep te Be eh Ws Ae ea 
\ / Ret \ 
{ | ! 
Nite Bett. fee \ eens: relational exor__.._. Pes OA cn Dee ate Pe me at 
\ 
4 
t 
relational expr 
{ 
NS. SS MOU ODT toe oro ei pe OA elce ed oe Py So ee 
\ sét or subr: / \ 
[Noo bets BIN toe Sco sree inclusion oo /\ { 
i\.. 3 IN__/ | i 
NA te oe Set ee ee eee simple exor__ / { 
Neon de ee / i 
<A i 
INU UL >= LLL ! 
Nee a OR i 
Noe a2 Se af j 
{ 
inclusion 
| 
Net SS MOUSE OK Dione os os ee ts ee Se ete ee se dS te tle, Beton 
! Neel. were _simole- exer _ / \ 
' i 
\... .indicant_. ~ . RAN Gils Re ol er eh ee ah Ee Mee | 
\4 
4 
cimole expr 
1 
| / ee Om ee aN \ 
| | ‘ 
Nise che ane as BAS Nis oo 2 ee ORIN OK os oe ee 1 ESAT OY LE POE LARSEN RTE RES PO 
\ 
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term 
| he apes tea OR eh ole Sa tet 
) / Nets he, \ 
\ i Ve REM__/ i 
| j { 
Nerea ae Act Gott tee: b RY ee PAC COP Js PR EITC as Ne a tags a ee 
\ 
' 
i 
i 
factor 
t 
! 
PNG ec tse Ae x Nests oso Wa CON ale LT to ecw ol as ew aR Nay 8 at ee ea te he en! 
j Vo. rel \ 
\ No tld ! 
WN oi Fhe ed bes at Co eee HOMO Ris ek Die eae as ate Be tee eae es eae i 
| V4 
JON: = 2 Bees 5 LSA gee a aPC P ERR ae OT A eee De pe eh oe No { 
1 Ne Saar eee SAS Pe SS ee / \l 
\ } / set elements: eeN i | 
\ \.._\uu_ value collection=_o/___/ { 
1 \ 
BOO BE 28, Pi puerta, 1 
! /acorecate elem:\ { 
VONS no eet S Case NS OX DR Pete Ue a aN ae, height ee ee a tek pet 4 
{ \I 
t types } 
PAAIO 2 eo indicant__~. - -oo UL MOTE ts Sect P INA sa ees helo eee Oe eter i} 
' eee ee ee MAX, / \t 
1 ‘hve. DELTA__. /\ i 
' (Xone EPSILON | fi i 
1 Nuc Soba 2 Ooee Beene 2 / { 
{ t 
{ I 
Neo te oe OL l)22 ck seme ae a ON NSN OS eS Pan BOUIN aE MOR OC RU RTE PORES Tee ee Pee ae | 
\i 
4 
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Woo VO Osh cco) et ake Sh ete toh Ste ek eh Ba ts Es Bi Sy ata gh Ts os eee ges 2) 
\ \ 
j prec er functicn: i 
PN a ae cigs atte Rb eed te hoe che gat De WiC the tec tes tte tee tli oR ae a 2 ot ets el he Aen j 
| modules / \l 
\ ident cee { 
! \ 
SOR 2 rs en ee en ee Ae eee ee EE ee ne ey oe ee I ee i 
{ \i 
1 cast type:. cast arguments { 
IN LL indicent___~. ¢( _LU_Llexor_ Do ee Goes res Cee ye et Oe { 
\I 
I\_ _primary__~ SOC LOT oe as esd ents ent ere hk ee ee i 1 
I te Re | nS eee \1 
i /actual parameter:\ i 
i\___primary____. ( __\_lexpression.____ | ee: eae ae POEL TESA Te TR i 
\ \d 
| files ; 
{ port or nsp i 
i filename: attribute name: { 
Noor sot lie icentifier__~ . » _Loo. VGN CaN i ic ts Bate we te ee { 
\t 
f 
eelection 
! 
| 
Noe eo ee Feld e tden tr fer ee eB ee se oe ee 
! \ 
Rt a Scere | pe ae a ee ee i 
{ / subscript/stice: \ { 
VN at Ss go B Niece te indexing ___ Deve toce CaN Ae et ba eae eaters seed Moe Ne { 
1 \l 
i s BY oe, ait ogare hated Roos taco ets eee eens shes Mk Meets as cae td ‘ 
\4 
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a a 


ws 


{\ (= 126 OPN Re a SOL RR © See eI OES Se RAE SPRL, MEARS ee EON ON ETE ee Le 

\ \ / \ 

' Noten. Tatler neterews simole expr _/ f 

\ Roce Se oe ' 

| “ ( 

\_._indicant__ . RANGE Seeet Pte et 8520 eS a eet eee ede eas Ware { 

\i 

| 
{ 

Literal 

| 

! 

VNiseces ot BS afin td haa string RE ETNA ee Ee Hee fod Oe TOS Re IN ADEA ETON 

| \ 

Ne lee ee ees WCCO Ci At Fe Se a ee eth oe we ty i 

\l 

H 
| 

value collection 

! 

! 

VNies ech ORD Re el Se cal Da By ten oa en Neco ae ea ie ne oe oP 

i / \ 

Ned ot simple exor .. simple exor__/ i 

| / i 

\ indicant . RANGE / i 
| 
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Apvendix €£ SPRITE CODED EXAMPLES 
4 MIO = binary tree traversal example 


tree_traversal 
PRUE 


trees 
MCD 

traversal ENTRY; 
OOM 


{trees} KNUWS 

scanner 

MOD : 
get ch. PRUC: (char VAR STRING (41) OF CHAR); 

DOMs ; 


{treess put} KNOW 
DEC 
CONST max lint = 999999999999995999999999; 
TYPE PUT_STR (5s 1.226100) = STRING (5 )e 
PUT_INT-EGER = - max _inteo.max ints 


CED> 
{trees} ANOWS 
put % an intrinsic “ See Apoendix H. 
MOD : 
olanke PROC (size 1.626100)3 
eol PROC > 
new_pagqe PROC; 
number PROC (value PUT_INTEGER» size 1..100)3 
string PROC (str PUT_STR)3 
DOMs 
GORP 


% binary ‘tree traversal example ~ SPRITE module 


trees 
HOO 


TYPE POINTER = PTR TO NODE® 
NODE = STRUC 
info STRING €1) OF CHAR? 
Llink>s 
rlink POINTER 
CURT S; 


preorder 
; ‘ 
PROC (p POINTER): 
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If op 7= nil 


THEN 
put.strina (pd.info); 
preorder Cpdo.llink 3 
preorder (pa .erlink ds. 
FI; 
CGRP > & oreorder 
inorder i 


PROC (p POINTER): 


IF p 7= nil 


THEN inorder (pdollink)e 
cut.strina (pad.info)s 
inorder (pdorlink 3 
FIs 
CORP; % inerder 


pcestorder 
PROC (p POINTER); 


IF p 7= nil 
THEN postorder (padellink 3 
postorder (Cod.rlink)-s 
putestrina (pd.info); 
FIe 
CORP > % oestorder 


enter 
PROC ¢€p VAR POINTER) 3. 
VAR ch STRING (1) OF CHAR? 


scanner.cet_ch (ch)s 

put.strina (ch); 

IF ch as ns 

THEN CENERATE EXTERNAL oO; 
od.info %= chs 
enter (pdollink)>; 
enter (paderlink) 

ELSE p 22 nils 

FI> , 

CORP: 4 enter 


traversal 
PROC 3 
VAR roct POINTER? 


ti bad a » 
t.strina (* > 4 See Appendix He 
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IF o 7= nil 


THEN 
put.strina (pd.info)>; 
. preorder Cod.ellink >? 
preorder (pderlink ds 
FI; ; 
CORP> 4 preorder 
inorder ie 


PROC (p POINTER); 


. IF pre nil - 
THEN inorder (pa.llink); 


é put.strina (pd.info); 
\ inorder (pad.rlink 3. 
\ Fis 

i CORPS % inorder 


( pestorder 
PROC (p POINTER) 


IF 0 7= nil 
THEN postoraer (Coad.llink);3 
postorder (od.rtink)s 
put.strina (od.info)?; 
FI; 
CORP; % oestorder 


enter 
PROC (p VAR POINTER)3- 
VAR ch STRING (ft) OF CHAR? 


ecanner.aet_ch (ch); 

put.estrina (ch); 

IF ch m= "," 

THEN GENERATE EXTERNAL os; 
od.info := chs 
anter (Cpd.llink) 
enter (pd.rlink) 

ELSE op ?= nile 


° 
s 
° 
’ 


CORP; %, enter 


traversal 
PROC; 
VAR rcot POINTER; 


: n n * a, 
out.strina ( 3 4 See Appendix He 
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Apoendix € SPRITE CODED EXAMPLES (Continued) 

enter (roat)> 

put.ects 

putestrina (" BY); 

preorder (root); 

oput.2ols; 

put.strina ¢® ")3 

inorder (root)? 

put.eol> 


putestrina (* *);5 
postorder (Croct)e 
put.eol; 

CORP? 


oC 
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Aponendix E SPRITE CODED EXAMPLES (Ccntinued) 
enter (root), 
put.eols 
outestrina (* ");3 
preorder (root), 
put.2ol; 
put.strina (" ")>5 
inorder (root)? 
put.eol, 


putestrina (" *);5 
postorder (root); 
out.eol; 

CORP» 


OCM 
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RESERVED WORDS 


estadlish ‘the 
Reserved words 
scellinas are used to bracket parts of 

condition 900 


prooram. 


werds may not be used as data 


words are; 


ALLAS 
ALL 

AND 
ANY_ONE_BIT_IN 
ARRAY 
ASSERT 
BINARY 

BIT 
BOOLEAN 
CASE 

CED 

CoM 

CONST. 

coRP 

CURTS 

DATA 

DEC 

DELTA 
DESCENDING 
OISPLAY 
DNGF 

oe 

oom 


ELIF 

ELSE 

ENTRY 
ENV_DEPENDENT 
EPSILON 

ESAC 

EXTERNAL 

FAIL 

FAILURE 


FORWARD 
FRUM 
GENERATE 
CORP 


KNOW 
KNGWS 


structural 


PRUG 
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semantic 
and their reversed 


certain constructs 

statement list ONs). Reserved 

type names. The reserved 

LENGTH PTR 

LOCAL RANGE 

LOOP_LEXIT REM 

MACRO | REMAPS 

MATCHES RETURN 

MAX RETURNS 

MIN SET 

MQC SHARES 

MOD SIZE 

NOONE _ BIL T_IN STATIC 

NSP STRING 

00 STRUC 

UF SYMBOLIC 

GR THEN 

URCAM TS 

ORDERED TYPE 

OVER UNIV 

OVERLAY UNTIL 

PACKED USING 

PORT VALUE 

PROC VAR 

PRUCESS RUN WITH 
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Appendix G SUGGESTEO SPRITE CODING CONVENTIONS 
Gel INDENTATION 


To make the logic cf a croaram more readable the contents 
of tnat prooram's units should he approoriately indented to 
reflect their structure. 


The bracketino pairs: PROG 7 GORP» MOD = DOM» DEC = CED» 
and PRBC = CORP should always be Lined up. 


in the MIN Coutside DEC blocks) and in SPRITE code Coutside 
a PROC)» the words: TYPE» CUNSTs DATA. and SHARED: also must 
be lined up. 


Ir a MID DEC blocks the words: TYPE» CONST and DATA are 
indented 5 spaces. In a SPRITE PRUC*® the words: SHARES » 
VARe TYPE and CUNST are alse indented 5 spaces. 


Key words must be aliocned on the same marcin and thines 
that they bracket must be apnropriately indented. A 
censtant indentation of five spaces has been agreed te for 
all constructs. 
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For example: 


IF XXxXxX 
THEN 

XXX XXKXK 
ELSE 

XXKXKKX XXX 
FI 


or €usina indent of 5 spaces). 


CASE XXxXxX 
Is li: 

KXKKXKXX 
OR 28 

KKK XXKXKKX 
ELSE 

XXXKX 
ESAC 


Tc allow easy chanoes to their lListsr the keywords: DATAs 
SHARED» VARs SHARES* TYPE and CONST ¢hould be on tines by 
themselves. Tha keywords THEN» ELSE» DU>e ODe DEC® CED» 
COM» MOC and the case lLavels followina IS and OR should 
also ne on lines by themselves. 
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Gee SPACING 


Teo make tindividuat lines easier to read» there should be a 
Liberal use of blanks. This is especially impertant around 
seecial symbols» after commas» before oarentheses»s etc, 


Trere should be only cne statement per line. 


Bcolean conditions in If» WHILE» etc.» which. involve 
anything more comolex than sisole bpoclean variables» should 
have the conditions divided un one per line. 


As a ceneral rule» when tt becomes necessary to soltit an 
expression across more than one line» the coerator or 
symbol at which the split occurs coes on to the second Line 
with the rest of the exoression. 


Blank Lines should be used to separates distinct oroups of 
statements. For examples between the proc headina and any 
SHARES*s between the SHARES anc any VARS? between the VARs 
and the statements*+ and between the statements and the 
CORP. 
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G.2 SFACING 


To make individual Lines easier to read» there should be a 
Liberal use of blanks. This is especially impertant around 
soecial symbols» after commas» before parentheses» etc. 


There should be onty cne statement per tine. 


Bcolean conditions in If» WHILE» etc.» which involve 
anythina more comolex than simple boolean variables» ehould 
have the cenditions divided un one per line. 


As a general rules when it becomes necessary to split an 
expression across mere than one line» the operator cr 
symbol at which the split’occurs goes on to the second line 
with the rest of the exoression. 


Blank Lines should be used to separates distinct oroups of 
statements. For examples» between the oroc headina and any 
SHARES* between the SHARES anc any VARS? between the VARs 
and the statements*s and between the statements and the 
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C.3 PRUCEDURES IN SPRITE 


ALL procadures will be declared FORWARD. This will make it 
oossible to write and read the module in a top down 
fashion. 


Eéech actual procedure name will be set off in a box for 
ease of recoaniticen. tA model in an editor file should be 
available.) The procedure name should  atse be repeated 
after the CORP as a Comment. 


Parameters Cand RETURNS) should be written one to ae line 
ard commented if there is the sliahtest doubt what they are 
used for. 


Followina the procedure's headers there should be a full 
descriontion of what process this procedure performs. This 
stould include any railroac syntax diagrams as well as a 
written description. 


Any SHARES statements should Fave their data block names 
one per Line» nete the usage of “that data block and where 


it oricinated. 


Veriables should be dectared cne per line and” have’ their 
usage documented if the names are not exactly descriptive. 


Groups of statements within the procedure which perforn 
scme sub=function should be senarated by blank Lines and 
their method or function should be documented. 
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G.2 PROCEDURES IN SPRITE 


ALL procedures will be declared FORWARD. This will make it 
possible to write and read the module in a top down 
fashion. 


Eéech actual procedure name witt be set off in a box for 
ease of recoanition. (A model in an editor file should be 
available.) The procedure’ name should also 06 repeated 
after the CORP as a comment. 


Parameters Cand RETURNS) should be written one to a line. 
and commented if there is the sliahtest doubt what they are 
used for. ; 


Fellowinag the oprocedure's headers there should be a full 
description of what process this procedure performs. This 
stould inctude any’ railroaac syntax diagrams as well as a 
written description. 


Any SHARES statements should tave their data block names 
one per Lines note the usage of that data block and.where 
it oriainated. 9 


Variables shoula be dectared cne per line and” have their 
usage documented if the names are not exactly descriotive. 


Groups of statements within the procedure which perform 
seme sub=function should be seoarated by blank lines anda 
their method or function should be documented. 
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SPRITE REFERENCE MANUAL 


Ge 4 MEANINGFUL NAMES - 


ALt names should explain. the usace or function they 
represent. This should be as exact as possible without 
qettinag carried away in name tlenath. It is especially 
necessary that module and prcecedure names reflect their 
function. 


TYPE names should be fully descrintive. Pointers to types 
should be descriptive of both the type pointed ta and the 
fact that the type is a pointérse joeoe CHAR_PTR. 


SYMBOLIC identifiers should reference the parent type'ts 
néeme or some abbreviation of it. For example: 


TYPE 
SYMBOL = SYMBOLIC ¢ 
sym addoode 
c¢ym_subop 
> 


NOTES With field names» don't aet too flowery as there 
tend to be several reouired to aqet to the field needed 
which makes for lLona qualification sequences anyway. 
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G5 MOOULES IN THE MIN 


Tre module descriptions ghoule be arranged alphabetically 
by module name. 


Each procedure should be on &@ separate Line and documented 
as to its usace, Each parameter of a procedure should be 
or a separate Lines and should be commented as necessary. 


Examole: 
read 
MOD 
read_card PROC (card_imace STRING (80)» 
eof_flac BOOLEAN); 
COM 
Gets the next input record 
and returns it in card _imace,. 
When end of file occurse 
eof_flao is set true. 
MOC> 
DOM; 


G.o6 DATA BLOCKS 


Trese should be arranaed alphabetical by bleck name. The 
veriables should be givem one per Line and documented as 
necessary. : 


Tre names of the variaodles in the data block should reflect 
“the -name for the data block or some abbreviation of it. 
This:is to assist in :determinine which ‘data block a 
véeriable used in a orocedure is shared from. 


Examples 


error _ccunter 
DATA 
error_count 0 2. max _errors + 1 2= Qe 
4 # errors detected 
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C of KNOWS LISTS AND DEC = CEN BLOCKS 


Due te the necessity of hiding as much information as 
pessibles there will be extensive use cf comprehensive 
KNGWS Lists. NEC = CED blocks should be used to 
encapsulate inter=dependent constants» types and data 
olocks under one KNOWS List. 


The ANOWS List itself should be indented as shown below and 
should have only ¢ne module name per Line for easy chanaes, 


Examole: 
{ 
module one 
module two 
} ANOW 
% input file buffer information 
DEC , 
CUNST 
inout_¢ize = 80> 
TYPE 


INPUT_LINE = STRING Cinput_size)3 


input _ buffer 
DATA 
input Line INPUT_LINE s= ®2"5 
% to force first read 
CEDs 


NOTE: Thinas in DEC#=CED Slocks are indented to set them 
off. Names should show the inter=dependencies (ice. 
"input! above). [It would probably be useful to orcanize 
tre DEC blocks alphabetically by this inter=dependent name. 


6.8 TYPES AND CONSTS 


Within a KNOWS List or a DEC blocks multiple type or 
ccenstant identifiers should be arranged atphabetically. 


Within each level forced by KNOWS Lists or the compiler's 
predefinition reaquirementse the type and constant names 
stould be arranged alohabeticaily, 
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Appendix H INTRINSLICS 


Certain standard modules are provided 
lancuage System as <intrinsics. These 
binary _converte compares debua (varicus 


err (two fiavors)» movers orint» pute 


by the SPRITE compiler. 


When SPRITE generates an implicit call to an 


MANUAL 


with 
include arme 


198% 9992 


the SPRITE 


flavors)» dobwrites 


readcd 
Calts to scme of these intrinsics are oenerated 


and trace. 


implicitly 


intrinsice it 


uses the intrinsic'ts mcooule name instead of an actual [CH 


name. 


Hel INTRINSICS INTERFACE 


if explicit calls to the SPRITE intrinsics 
their MID descriptions must be embedded 
Irn the following MID descriptions cf the 
ccmmentse describe the functiors of the modules. 


are to be mader 


in the user's MID. 
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Hef INTRINSTCS INTERFACE (Continued) 
{ { 
| IN tT RINS YT CS J 
! { 


arin % SPRITE module: arms the procram, 


M00 ENV _ DEPENDENT 
processor_and_trap 


PROC (error. handler_oroc lotr VALUE PTR TQ PROC); 


Re ES BE 


the specified procedure is called. 


é~ 


about the error jis in tarm_parameters'? 


This routine coes an arm BCT and enables the 
accumulator trap. If any type of error nappens» 


Information 


aet_error_messaage PROC (disolay_error_messaoce BOOLEAN) 


RETURNS STRING €100)>3 


This routine cetermines the specific 


Re Re 


a 


describine the error. If requesteds 
disolay this error messaae, 


~~ 


OOM; 


binary_convert 
MOD 


to_decimal PROC (hex CUNST UNTV HEXADECMAL> 
dec VAR UNIV DECIMAL )3 
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Hel INTRINSICS INTERFACE (Continued) 


to _binary PROC (dec CUNST UNIV DECIMAL» 
hex VAR UNIV HEXADECTIMAL D3 


% WARNING: Parameters other than binary or 


vA decimal may produce unpredictable 
% results !tt! 

DOMs 

compare 

400 


do_compare PRAC € tiret field COMPARE_STRINGs 
second field COMPARE =STRING) 
RETURNS 16.243 


4% compares two variable Lenoeth strinas 
a and returns: 
~ 1 if first «< second 
if first = second 
if first > second 


eRe 
N 


tn 


C) 


DOM> 
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He INTRINSICS INTERFACE (Continued) 


debuo % SPRITE module to handle various types 
MOO ENV_DEPENDENT &% of orocram debucaina actions such as 
4 monitorinos tracinae dumpinas etc. 


enter PROC (debug_mod_and proc name VALUE STRING (49) )3 
% SPRITE generates calls to this 


% routine at procedure entry 
% peints. 


wn 
et 
m 
cr 
o 
3 
ro) 
= 
ot 
ae 
=e) 
& 
oO 
~ 


stmt location VALUE POS ITIGN_INFO)>; 


% SPRITE cenerates caltse to this 
_%4 routine at statement marker 
A points. 


exit PROBC> 


%Z SPRITE generates calls to this 
%Z routine at orocedure exit 
% points, © 


summary PROC; 
zZ SPRITE cenerates one call to this 
% procedure just’ before the stoo 
% run BCT. This vrocedure prints 
& any summary debuacina information 
% which is required. 


% The debuaq version of érreerreoer 
% calts this routine whenever a 
, proaoram errer cccurs.e. This 

%Z routine prints any information 
% about the error. 


initialize PROC% 


x 


SPRITE. generates one call to 
this ‘procedure at the beainnina 
of the prooram,. This routine 
does debuc initializaticne reads 
input specificationss etc. 


MN RN RON 


OOM + 
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Hel 


dbwrite 
MOD 


number PRUC 


string 


boolean 


hex PROC 


RQ SL RO DY 


ebcdic PROC 


me Re 


PROC 


PROC ¢ 
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INTRINSICS INTERFACE (Continued) 


4 SPRITE’ module toe print infermation as 
4 a csbucaine aid. 


( Label_forznumber NB_STR ? 
number _to print VALUE 
= 99999999999999999999999 
+ 99999999999999999999999 


This routine-adds your labels a 
blanks the numbers and a semicolon 
to the current debuc Line. 


© babeletor str inc. OB_LSTR » 

strino_tolorint NBLSTR 93 
This routine edds your label» a 
blanks the second strinos and a 


semicolon:to the debua line. 


label_for_boclean 
vooléan_to_print 


NB_LSTR » 
VALUE BOOLEAN )¢ 


This routine adds your labels a 
blanks the cleartext value of 
the boolean» and a semicolon 


to the current debua line. 


~ 


label_for_hex DB_STR » 
hex _to_print UNIV DBLHEX STR 3 
This routine adds your tabel» a 
blanks the cleartext value of 
the hex strinos and a semicoton 
to the Current debua tine, 
( label_for_ebcdic DB_STR » 


ebcdic to_print UNIV 0B STR )3 


This routine adds your labels a 
blanks the ebcdic strino»s and a 
semiccelon to the current Line. 
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Hel INTRINSICS INTERFACE (Continued) 


eol PROC 

4% This routine crints all of the 
i information in the current debua 
ZA Line@e 


DOM » 


err % SPRITE module which handles run= 
MOD -% time detection cf certain:.tyoes of 
4 prooaram errors as defined by the 
% compiler. , 
error PROC (¢ medule_name STRING €24) >» 
Locator VALUE: PUSITION_INFO> 
type_of_error VALUE RUNTIME_ERRURS); 


%Z This routine crints the error 
meessace consistine of where the 
error was detected (modules 
rec#s and tined)» and what the 
error WaSe | 


Me ORS 


MH OR 


OOM : | 
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Hol {TNTRINSICS INTERFACE (Continued) 
f_dowrite % SPRITE module te print information 
MOD % as a debuacina aid, | 
-number 4 This routine adds your labeler a 
%Z blanks the numbers and a semi~ 
Z colon to the current dedua Line. 
~ PROC € Label_fer number NB STR ? 
number_to_orint VALUE °99999999999999999999999 .. | 
+99999999999999999999999 | 
RETURNS BOOLEAN: % always returns “true” | 
mz max _int 
strina % This routine adds your Labels a | 
% blanks the second strinos and a 
% semicolon te the debua line. 
PROC ¢ Label for _strino DB_STR » 
strino_ te lorint DBLSTR ) 
RETURNS BOULEANS % always returns "“true* 
boolean % This routine adds your labels a 
%Z a blanks the’ cleartext vatue cf 
& the boolean» and a semicolon to 
2’ the current “debuq line. 
PROC ¢ Label_for_boclean DB_STR »+ 
boolean_to_orint VALUF 68BOGL’EAN: ) | 
RETURNS 8OOLEAN; 4% always returns "true® | 
“hex : % This routine adds your labels a | 
% a blanks. the cleartext value of | 
4a ,the nex strinos and a semicolon | 
~z .to the current debuo Line. | 
PROC. ¢« LlLabel_for—~hex OB_STR ? 
: hex_to_orint UNIV OB _HEX_STR ) 
RETURNS BO0ULEANS %Z always returns “true™ | 
eocdic % , This routine adds your labels a 
4 olank»s the ebdcdic strings and a | 
4 semicolon to the current line. 
PROC. (¢€ Label_for_ebcdic DB_STR » 
ebcdic_to_print UNIV OB _STR ) 
RETURNS BOGLEANS; ‘% always returns “true* 
eol 4 hig routine prints all of the) 
% inforwnation in the current deboua | 
4 line. 
PROC 
RETURNS BOULEAN> 4 always returns *true® 


. Ako 
OOM e B 
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Hol INTRINSICS INTERFACE (Centinued) 
move 
MOO ; 
dc_meve PRUC ¢ module_name STRING (24) » 
etatement number 0..99999 ? 
sendinc_field “ MOVE_STRING » 
receivina_field AOVE_ STRING 33 


% moves (left justified) a variable size 

% strine from the third ‘argument to the 

% fourth araument. Arauments cne and two 

% specify the medule name “and’ node number of 
%Z the statement performinoa the move. 


DOM: 


print 4 BPL mocule to handle printer 
MOD ENV DEPENDENT &% output. 


Line PROC ( paper_motion_to_use VALUE PR L_UFAPER MOTION » 
Line_to_print PR__LINE > 


This routine erints the Line 


3 


za with the: apnoropriateé paper 
Z motion. 
print line PROC ( paper_motion_to use VALUE CHAR ? 


Line_tolprint — STRING (132) 03 


% This routine is the old 
vA interface to the PRINT 
% module. OU NOY UsEett 
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skip PROC ¢ 


% This routine skips 


4 or to the 
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INTRINSICS INTERFACE (Continued) 


nr _of_ lines _ to -skio VALUE Oc. 
the 

% number of Lines.specifieds 

too of the next 

4. page. 


end_of_pace PROCS; 


% This routine inhibits any 
% other tines frem beina 

2 printed on the current 

vA page. 


99 Ys 


cho;paqge_nr PROG C'pade_nr_of_next_paoe VALUE 41.2.9999 ) 


cha file_id PROG. ¢ 


ae 


This routine changes the 

pace number of the next: pace 
to the specified value. It 
also stops any more Lines 
from beine put on the current 
pace. 


MN a 


me MN eS 


VALU 


cha_vage_size PROC .( nr_lof_lLines_en_pace E Llee9D YS 
-% This routine chances the 
2 number of: Lines which are 
% orinted 6m a cage. 
new _file_id VALUE STRING (6) » 
new multi file id VALUE STRING (€6) » 
special_forms_ required VALUE BOOLEAN 3 
%~ This routine changes the file 
~ ID and special forms flaa of 
% the print. .file when closed. 
aet_file_id PROC ( real_filesid VAR STRING (6) » 
real _multi_file_id VAR STRING (6) Ys 


%Z This routine cbtains the file 


% {0 of the print file. 
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Hed INTRINSICS INTERFACE (Continued) 


hex PROC (¢ hex string _to_add UNIV PUT__HEX ); 


aS 


This routine apoends the clear 
% text value of the hex strina to. 
z.. the end of the current line. 


blanks PRUC  ¢ chars _to sk iplover VALUE 0.6132 )3 


~ 


This routine skios over -the 
specified nunber of characters 
in the current line. 


Pd 


ae 


eol PROC 


2 


This routine crints the current 
Line. 


3 


a 


new, page PROCS; 


4 This routine marks the current 
% pace as ‘being finished. 


adv_tce_col PROC ¢€ column _to_advance _to VALUES 1.64323 D> 


2 


This routine tioves ahead Cif 
not past it)? to the specified 
column in the cutout line. 


Re re 


go_to_col PROC ¢€ column _to_so_to VALUE de. 13% Ye 


(4 This routine movee (in*’either 
% forward ar backward directicn) 
4 to the specified ceotumn in the 
% output line. 


cha_line_size PROC. ¢ new _Line_width VALUE {4.2122 )3 


% This routine chances the width 
4 of the outout Line. 
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Hel INTRINSICS INTERFACE (Continued) 
close PROC; 


7 This routine closes the out? 
A put printer file, 


2 > 


oet_list_date_time PROC (date_of_listina VAR STRING (9) »& 
%4 (dd MMM yy) 

time_of_ltListino VAR STRING (10) )3 

2 (hhemm acote/pome ) 


4 This routine cbtains the date 
and time wnich apoears on the 
r first pace»header Line. 


“4 os 


get _real_date_ time PROC (current_date VAR > STRING €9)_ » 
me % (dd MMM yy) 

current-time VAR STRING €10) 03 

% Chhsmm aem./p.m.) 


% This routine obtains the 
2 current date and time from the 


% WMCP. 
DOM; 
put % SPRITE modute to format Lines. 
MOD ENV DEPENDENT 
string PROC ¢ strina_to_add PUT__STR. )3 


~ 


This reutine eppends the string 
to the end of the current : 
Line. 


~~ Rr 


number. PROC. ( number _to:;add = IPIDIIDIIDIDIDIDIIDIIDIIIIIII ao 
+t 99999999999999999999999° 
container lsize_of_nr VALUE 1..132 33 


4 This routine appends the number 
% to the end of the current line. 
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Hef INTRINSICS INTERFACE (Continued) 


backup PRUCs5 


% This routine celetes trailing 
%Z blanks from tha end of the 


%Z output line. 


cha_indentation PROC tnormal_line_indent 


VALUE; Oo Sl 


% This routine chances the values of the 
Z indentations fer peth normal lines and 
v4 for overflow lines (printed without an 


% explicit call on teol’). 


DOM > 


BPL mocule to oet input 
from either a card deck 
editor’ file. 

next _caérd_imaae VAR 
end_of_file_fecund VAR 


readcd 
MOO ENV_DEPENDENT 


wo 


~ 
~ 


read_card PROC 


4 This routine cotains the next 


& card imace frem the input file. 


card imaqaes 
or an 


STRING (80) » 
BOOLEAN © 5 


cet_id PROC’ ( name of_input_file VAR STRING (6) >» 
is_an_editor: file VAR 8BUOLEAN > 


This routine returns the file 
i id and whether the innut comes 
4 from an-ecitor file or not. 


3 


2 


close PROC; 


% This routine closes the inout 
% file. 
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prearam PROC ( ‘turn trace_on VALUE BUOLEAN ); 


% This routine starts or stoops 
%Z tracings as scecified. 


on_with_Limits PRUC (startino_address 
‘Limitine address 
startina_seoment _nr 
limiting seament_—onar 


= 


aw 


DOM > 
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VALUE 
VALUE 
VALUE 
VALUE 


02 o9I9DIIDG - 
0220999999 » 
020999 ’ 


022999 > 


Zz This routine does a start trace BCT with the 
specified parameters. You may Limit trace output 
A Lines Dy settine appropriate values. 
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H.2 INTRINSICS CALLED IMPLICITLY 


Scme intrinsic calls are cenerated imolicitly by the SPRITE 
compiler depending on certain conditions in the source 
precram or certain options previded by the user in the 
scurce program or in the 6inder Specifications. These 
conditions and options are described below: 


tendition iotrinsic Qthec Intrinsics 

oc Option Called Called 

run-time error err orints stop 

debug specified debdua arms» erre prints put 


readcd and trace 
cells to ddwrite dbwrite put» print 


veriable lenath move 
of >100 diaits or 


Characters move none 
variable Lenoth comoare ~ comprare none 
assignment statement convert.to binary 
or operation, with and/or 

mixed binary and convert .to_decimal 


decimal operands 


A runstime error call is always cenerated for a CASE 
statement without: an ELSE clauses ASSERT statements whose 
exoressions are falses and ‘at the end of functions with no 
return value. : 


Tf the boundsrcheckina C€BOUNDS) option (see Appendix Is 
Section 5.44) to the SPRITE  ccmpiler is set» a run-time 
error is sometimes Generated for ccercions and casts 
irvolvina prance checkinos or suOscriptinae ° with an 
expressicen that its not a constant. 


tc tne debua module are cenerated if the debua option 


ils 
sat within the Binder Specifications. 
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intrinsicse méy be catlea exolicjitly by the SPRITE procram. 


A specification of the’) intrinsic module 


included in the MID description of the 
intersmodule call Ci.ee. fnod.proc) in 
prcaoram may be used te explicitly catt 
module name» orocedure namer parameter 
value are checked accordino to the MID 


user's 


must 
oroaram. An 


then be 


the SPRITE source 
the intrinsic. The 


types pe 
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H.4 SUMMARY OF HOW TO MINIMIZE CENERATED RUNTIME ERRORS 
1. Include ELSE clauses in CASE statements. 
2- Comment out ASSERT statements. 


3, Make a RETURN statement be the Last statement in a 
functione 


4. Don't use variable lerath objects. | 
5. Don't use variable indices into arrays where bounds. of 
index's .type are either ‘lower than.or hioher than’-the 


bounds of the array. 


6e ° Don't use variable ‘substr-ina offset whose type includes 
values less than Le. 


7. ODontt use GENERATE EXTERNAL. 
6. Don't use ££ HICGCHHEAP. 
9. Don't move a string to a strinoe of a smalter size. 


10. Don't have possibly © operlappina: operands unless 
identical. 


11. Don't use string to display conversions. 


12. Don't move operand to operand of differina bounds. 
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This appoendix describes the SPRITE Lanauagce compilers ‘based 


on the 82000/%000/4000° SPRITE Lanouades 


which produces 


machine Language proarams: for use on B2000/2000/4000. 


Features marked with an- asterisk (*) are not 
the current release cf this product on the field software 
release tape as of the issue of this specification revision 


level. 
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PRODUCT SPECIFICATION 


Title 


Compiter Control Imaces 


Titte 
B2000/2000/4000 EDITOR Program 
B2000/%000/4000 SPRITE Lanauace 


Type % ICM Preduct Specification 
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REV. A PAGE 


The SPRITE compiler produces Indenvendently Compiled Madules 
(ICMs) to operate with the B2C00/32000/4000 BINDER. 
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T.2 PRGCRAM DESCRIPTION 


T.26l LANGUAGE 


The Lanaquaoe acceptable as inout to this compiler is the 
B2000/8000/4000 SPRITE lancuaqe. (See B2000/3000/4000 
SPRITE Lanauace P.S. #1962 6951.) 


Le2e2 INPUT 


Tre compiler uses one or more source input files to make 4a 
complete» undated SPRITE program. Alt input files are 
expressed in the EBCOIC character set. 


Disk» diskpack»e or macnetic tape can be specified as source 
Lancuage inout media for a sinale input file or for a 
master file. Punched cards may also be used as a single 
input file. 


If two input files are used» the compiler merces them on a 
sequence number basis. 


Records cf tnput files are 80 bytes in Lenath. Inout from 
disks diskpack»s or magnetic tape is blocked 9. The format 
of each 8C=oyte record is 72 characters of source 
informaticn in columns 1 threugh 72 and an optional 8 
Character sequence number in columns 73% to BO. 


Source input can also oe an ENITOR file on disk or 
diskpack, EDITOR files may be used for the update = and 
master file input. EDITOR files are unblocked. (See 
B2000/3000/4000 ENITOR Proaram Specification.) 


Full upper and lower case character set inout is required. 


T.2o.2-1 Library Files 
SPRITE larauace source text which is common to several 
proarams may be stored on disk or diskpack as source 
liobrary files. One or more library files may be included 
ir a program by use of [NCLUDE CCI commands. A Libdrary 
file may be an ENITOR format file or a file with recerd 
tenath of 80 bytes and blocked 9. 


The SPRITE comciler uses the values of switches 2 and 6 to 
determine the hardware type of the primary input file. If 
the value of switch 2 is initially O» then the value of 
switch 6 is moved to switch 2. The value in switch 2 is 


then interpreted as follows: 
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1 - primary file is an editor file cn disk 


3 - primary file is en editor file on pack 


others? primary file ig a card file 


If an editor file is usedse a file equate must 
which equates the EDITOR internal file to 


external file. 


1.2.3 QUTPUT 


— 
e 
ine) 
@ 
ae 
6 
ea 
I= 
io 
(= 
ir 
lo) 
lo 
i) 
io 
lo 
iat 
cs 
is 
fo) 
ic 
ites) 
Ts) 
lo) 
mal 
—. 
ia 
iD 
In 


be supplied 
the desired 


Ar updated master symbolic output files acceptable as input 


to the SPRITE ccompiltere may be created 


by use of the 


centrol card option NEW. This file may a record 
Lenath of 80 bytes and be blocked 9» or it may be an EDITOR 
format file. Source language cutout media may be diske- 
diskoack or maecnetic tave. 
[.2.3.2 Qutput Listings 

Listinas providea by this comciler include: 

Diagnostic messaades 

Input source lLanauage (may be inhibited) 

Indication of inserted» replaced» or deleted source 


Generated codes in ICM format (upon request) 


Summary information 


Cross reference listine (upon request) 


Listings to be printed reauire an output device capable of 


full upper and tower case outcut. 


The ICM aenerated is written to disk. 


ICMs can be ontionatly written to disknpack. 
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ate Information 


in a multiprcaorammina environments to identify source 
prooram files uniauelys it may be necessary to use tabel 


eouation 


statements. fhe internal filenames and external 


filesidentifiers for SPRITE files are: 


Internal 


filename 


CARD 


ENLITOR 


SOURCE 


NEWSOU 


LINE 


ic 


External 
File-I0 Function 
CARD Update card input. 
Default device is card 
reader. 
EDITOR Update ENLTOR input. 
Cefault device is disk. 
SGURCE Source proaram input. 
fefautt device is dick. 
NEWSOU Updated source program output, 
Default device is disk. 
LINE Printed outout Listina. 
TCM JCM file. 


For exampler to chance the external filemidentifier of an 


1CM files 


the label equaticn card used is: 


FILE ICM = <filewid> 


where <file-id> is a unique file~identifier of 6 characters 


or fewer. 


itis produced by this compiler conform to the Type * ICM 


Product 


Debuatnina 


Svecification P.S.s #1962 7009. 


and Diaanostic facilities 


Tre followina comoile time facilities are available: 


As 


Bs 


Syntax error messages are printed followina the 
line in error. A pointer indicates the Location 
of the error. 


Optional warnino messages are printed followins 
the line te which tney anpoly. A pointer indicates 
location of the possible error. 
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1.2.4.6 OQgbuagaing and Diagnostic Facilities (Cont inued) 


C. Various informational messaces are printed. 
O. No ICM i¢ generated if syntax errors are present. 


Alt error messages are soecific and are sufficient to 
determine the cause of the error. 
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oe PERFGRMANCE AND EFF ICTENCY 
Lee COMPILE SPEED 
The compiler compiles source {anauage 


modules at 


approximately 7200 to 750 card images per minute. Modute 


Interface Nescriptions are compiled at 500 


1000 card 


jmaaes per minute. Compite speed is opreportional to 
additional main memory and inversety prooortional to the 


size of the source preooram. 
Tat 02 COMPILER SIZE 


The minifum main memory requirement of 


sufficient for all compilations. Compile soeed 
programs is improved if additional main memory 


125 « bytes ig 


on tarae 
civen. A 


maximum of 500 KX bytes of main memory can be used, 


1.4.3 MEASURE OF OBJECT PROGRAM EFFICTENCY 
The code produced by the compiler has 
efficiency comparable to that produced 


82000/3G00/4000 compilers. 
1.3.4 CONDITIONAL COMPILATION 


The cceode generator of the compiler detects 


unreachable code in certain situations and 


suppress code generation. This suopressijon 


execution 


by other 


the presence of 


able to 


transparent 


to the user. Example situations are when compilatton takes 


place for a CUNST expression tested in 


statementses in the selector expression of CASE 


WHILE Lcoes and FUR statements. 
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SPECIFICATION 


1.4 ENVIRONMENT 
To4e1 HAROWARE ENVIRONMENT 
The minimum hardware required for use with the compiler is: 
B2000/2000/4000 Must have extended address 
Processor functions. 
Main Memory 125 " oytes for the compiler. 
Plus MCPVI requirements. 
Disk or 260 K bytes for 1000 Line 
System Memory prooram. 
for workfiles The requirement increases 
in increments of 260 « bytes 
per 1000 lines. 
Card Reader»e 1 for control card. 
or SPQ 
Inout Device 1 of the input devices specified for 
the sourcé proaram (Section 2.2). 
Untional hardware which may be used with this comoiler is: 
Printer 1 fer Listinas 1%2 columns used» 
if user wishes to print any outout. 
Main Memory Adaitional main memery provides faster 
- compile sceeds. 
Additional devices are required if requested jin the 3 
control cards. : 
JT.4.2 SOFTWARE ENVIRONMENT 
A master control procram is assumed resident in main 
memory. Master Centrot Pprocram MCPVI cof a compatible 
release Level (ASR) is acceptaole. 
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1.5 COMPILER CUNTROL CARDS 


Oections are available duringo compilation and are activated 
or deactivated by control card imaoes (CCI). These cards 
alona with the # character ir column 1 may be interspersed 
at any point within the program and contain the followina 
functions. 


(*) indicates option is not ivplemented. 


Below is a list of the CCis and their oarameters. For 
additional information concerrinag the meanino and usaae_ of 
CCis» refer to CSE Control Card Imaces 1955-2926. 


In the followine list a '+* precedina the CCI indicates 
that there is more infermation on that CCI in a later 
péraorach. Also» a '*t precedina tBoolean' in tne format 
cclumn indicates that the CLEAR CCI does not affect that 
boolean valued CCI. 


The phrase “settable once only*® means that if the option is 
ever set» it may never be reset. Likewises *resettabdle 
once only® means that once it is resets jt may never be 
set. 


Sinole dottlar CClse (4) do not appear in the listina unless 
overridden by LIST# or LISTOULLAR.,. Oouble dollar CCIs (94) 
always appear in the listinc. 
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1.5 COMPILER CONTROL CARDS (Continued) 


THIS OPTION AFFECTS OTHER BOOLEAN OPTIONS 
cel FORMAT PURPOSE 


CLEAR Immediate Atl Beotegan cptions are reset 
(except where * oreceded Boolean) | 


THESE OPTIONS AFFECT THE LISTING FUNCTION 


cel FORMAT DEFAULT PURPOSE 
CODE Boolean False List qenerated code | 
+ CONTENTS Boolean False List strino (up to 72 Chars) 
in table cf centents 
DOUBLE Boolean . False Nouble space Listing 
+ FORMAT_UNITS Boolean False Special Lietine formattina 
LIST Boolean True List source input 
{and summary) 
LIST# or Boolean False List atl sinote dollar CCIs 


LISTOOLLAR 


| 
| 
LISTOELETED Boolean False List all DELETEd or VOTIDed | 
images | 
LISTINCL Boolean False List all INCLUDEd images | 
LISTOMITTED  Beolean Falst List all UMITted images | 
| 

LISTP Boclean False List alt primary (vatch) 


images (if LIST is reset) 


+ MAP Boolean False Show sizer offsets block 
number of data blocks 


PAGE Immediate t(nene) Skip listine to top of page 


+ PAGESIZE Value 56 Specify Cusable) Lines per 
pages rance 6..104 


SUMMARY Boolean False List summary informations 
Cif LIsT is reset) 
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THESE AFF 
cel 
+ INCLUDE 


+ NEW 


+ MERGE 


DELETE 


INCLNEW 


OMIT 


Boolean 


*Boolean 


ECY THE MERGEs® NEW 


Immediate 


*Boolean 


*Boclean 


Boolean 


Boclean 


Boolean 


Immediate 
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(Continued) 


False 


False 


List string 


Gather and List cross 
eremces 


AND INCLUDE FUNCTION 


(nene) 


False 


False 


False 


False 


False 


(nene) 


PURPOSE 
Enable copyina of file 


Create scurce outout 
settable once only 


Enable wnercina process» 
settable once only 


source (master) 
until reset 


Discard 
jmaces 


INCLUDEd images written 
to NEW file 


Tenore alt source 
until reset 


images 


Discard 
Line 


eource imaces 


number is 
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(un to #2 chars) 
as part of pace heading 
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files 
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exceeded 
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+ COPYBEGIN 
+ COPYEND 


DEBUE 


CORRECT OK 


OBS TMTCALLS 


DEBUGCALLS 


+ ERRORCALLS 


ERRORLIMIT 


HIGHHEAP 


MCPVI 


t SEQ GR 


+ SEQUENCE 


SEQCHECK 


SYNTAX 


WARNFATAL 


EORMAT 
*Boolean 

Special 

Special 


Spvecial 
Boolean 


*Boolean 
«Boolean 
*Boolean 
Value 
*Becolean 
Boolean 
Boolean 


Boolean 
*Bootean 


Boolean 
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(none) 


(Nene) 


(none) 
False 


True 


True 


True 


100 


False 


False 


False 


False 
False 


False 


Specify bounds checkina & 
Level ranae 05.9» 
resettable once only 


Beainnino INCLUDE symbolic 
ranaoe mark ' 


fFnoding INCLUDE symbotic 
ranoce mark 


Internal compiler use enly 


Corrected errors jianored 


Nebua statement calls cener~ 


ated; resettable once only 


Nebua calls aeneratede 
resettable once only 


frror calls oeneratede 
resettable once only 


Soecifies error Limit 
aborts rance 1..999 


Specifies heap lies abeve 
stack» settable only 


Makes available certain 
new features. 


Specifies source image 
resequencina 


Cive warning on seq. errors 
Syntax check only» no code 


Warninos are syntax errors 
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1.5 COMPILER CONTROL CARDS (Continued) 


8S ob os ce ES Sa eee Pe 


In the following explanaticnses items in orackets are 
ortional. 


T.5el FCRMAT_LUNITS 


Setting this option spnecifies that sneciat formatting is 
desired for tunits* in MiQOs and modules. A unit isa 
procedures a macro» a madule descriptions a data or file 
blocks a DEC=“CEN block or a TYPE or CONST declaration 


occurrina outside of a procedure. 


Two numeric parameters are eccepnted. The first snoecifies 
the number of tines to skip between units and the second 
scecifies the minimum number of Lines remainino on a pace 
betore a new unit will be started on that pace. 


The syntax is FORMAT_UNITS C=) skip lines [» tines_reml]. 
Tre defaults are skip_lines = % and lines_rem = 20. The 
parameters should net be present when resetting 


FORMAT_UNITS. 


T2522 TITLE 


Settina this ontion specifies that a lLeaend in the headina 
is desired. The civen string is centered on the third 
headina Line and may be up to 72 characters lana. 


The syntax is TITLE (C#=3 strina. the strine must be in 
quotes. 


Resettina TITLE will clear the title tine to-blants. 
Looe CONTENTS 


The CONTENTS ecpticen has the same format ag the TITLE 
option. tlowevere the strina ycu specify aopears only in 
the table of contents at the end cf the compile tlistina. 
You may use this option for easily findina thinaes within 
yeur M1Os witout affectino your present page headinos. 


The syntax is CONTENTS (C=) strina. The strine must be in 
quotes. 


For examoler 


#7 CONTENTS “2.7 Virtual File TYPES" 
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T2564 SEQ OR SEQUENCE 


Settina this option specifies that resequencina the 
imaoes (after merainag) is desired. The new Line 
will apoear on the Listina and in the NEW filer if a 


Two numeric parameters are accevoted. The first is t 
line number and the second is the increment betwe 
numbers. Both must be in the rance 1..299999999. 

The syntax is SEQ Ebase] €+ incl. The defaults are 

1C00 and ince = 1000. The parameters should not 

when resettino this option. 


1.5.5 BOUNDS 


Setting this option snecifies that bounds checking c 
desired. This option is initially set. 


One numeric parameter in the ranoe 0.29 1& acceo 
specifies the level of checkina required. 


The syntax is BOUNDS C=7 Level. The initial defau 
level is 9. ' 


Resettina BOUNDS or settino the level to 0 disab 
beunds checkina codes LNCLUDING ASSERTS! 


Each lavel includes atl checks. at (numerically) 


4 9992 


source 
numbers 
NY o 


he bace 


en Line 


base = 


be used 


cde is 


ted and 


lt for 


les all 


Lower 


Levels. The currently specified tevels and what they check 


ares: 
2° Check assertions 
4 = Check indicese substrina boundss parametric 
6 = Check s1z6€ conversions for parameters 
8 - Check value conversicns 
1.5.6 PAGESTIZE 


Llenaths 


Settina this cption specifies the number of usable Lines 
per paces which does not include the 5 header Lines. A 
sixty line page (physical) has 55 usable tines on it. 


The syntax is PAGESTZE C=] size. The default is size = 56.6 


Resettina PAGESIZE rettores the vatue tc 56. 


1,507 MERGE AND NEW 


MERGE enables the master and catch file meroe process. NEW 


enables the creaticn ot a new file from the compiled 


source 


Se Once invekeds MERGE and NEW remain set threuchout 


imace 
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eras re MERGE ANO NEW tContinued) 
the comopilaticn. 


Both MERGE and NEW accept two parameters. The first is the 
title of the file desired and the second is the physical 
type of the file. 


The syntax is MERCE Cor NEW) Ltitle] Cdeviced. The format 
of the title is a quoted strine up to 12% characters lono of 
the form tamily_name/file name. The Leaal devices are 
DISK» PACK» DISKPACK» TAPE » ENITOR» ENTTOR DISK and 
ECLTOR PACK. ENWITUR and EDITOR _DISK are synonyms» as are 
PACK and DISWPACK. 


ECLTORe EDITOR DISK and EDITOR_PACK specify that an editor 
tormat file is to be the master file. OLSKs PACKse DIS KPACK 
and TAPE specify that an 80 blocked 9 file is to be the 
master file. 


The defaults are device = DISK»e MERGE title = SOURCE or 
ECiSUU for an editor format filer and NEW title = NEWSOU or 
NEWEDI for an editor format file fer NEY. These defautts 


may be overridden by MCP Label equation. 
Examoless 


MERGE "JUNK MY" OITSK 

NEW ®XXXXuc*® EDITOR 

MERGE “MYPACK/FYLEUc® EDITOR_PACK 
NEW "MYPACK/X XXX" DISAPACK 


1.5.8 INCLUDE 


This option allows inclusicn of atl or part of another 
source file inte the comceilation process. It functions 
independently of the merge crocess ands in facte suspends 
meraing while including, 


The syntax is: INCLUDE title device frange). Title and 
device are these mentioned in MERGE and NEW» except that 
INCLUDES from TAPE are not permitted. If a range is not 
presents the entire named file is included. <A rance may be 
a section name (see belowe CUPYBECIN and COPYEND) or it may 
be a sequence ranoe which specifies the beainninoa line 
number and may optionally specify the endino tine number. 


Examoles; 


INCLUDE “JUNKHY" DISK 
INCLUDE "XxxXuc™ EOL TGR 1000000 
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INCLUDE "MYPACK/YYYY" OLSKPACK 1000000 4000000 
INCLUDE "MYPACK/FYLEuc™ EDITOR _PACK fib declarations 


An INCLUDEG file may contain INCLUOES. 


levels is supported. 


1.5.9 CCPYBEGIN AND COPYEND 


Nestino cf up to ¥g 


These CCIs are imarkers for the INCLUDE function and serve 
to delimit named secticns in the file. 


action and have no other effect. 


They cause no 


Tee syntax is COPYGEGIN (cr COPYEND) name>. The name is an 


un=quoted strine up to 24 characters 


is required. 
1.5610 ERRORCALLS 


Tris option is initially true and 


caus 


Lona. The semicolon 


es calls to the 


run’time i intrinsics err.errore te be generated. Resettins 


it replaces calls to 'err.eerror!® with 


an 


invalid opocades 


"ECt in HEX» followed by the two diocit error code. 


T.5011 VOLO 


This cpotion srecifies that alt imaces from the source 
(master) file are to be discarded until 
number exceeds the specified line number. 


the source Line 


The syntax is VOID Line numb. Line numb must be in the 


ranoe 0..9999S999, 
Examples 


VGID 9999 
VUID 100C000 


I.5.12 MAP 


For the pertion of the source code for which this option is 
sete the output listina Lines of STRUCture definitions and 
show detaits of the 
structure of the structure or data block. 


DATA definitions are mcdified toe 


The card=image ocriain field of the affected cutout Lines 
Crormally VENITTOR" » "“JNCLUDE*> "PATCH" » 


3 columns of information: 


If> then ™." otus 


1. size Cif b F ¢ 
“THE INFORMATION CONTAINED IN THIS DOCUMENT 1S CONFIDENTIAL AND PROPRIETARY TO 


al lo 


BURRO 


etc.) will contain 
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1.5612 MAP (Cent inued) 


offs3. block number 
(only for DATA definitions) 


Fer examole» 


Se ence ousa SOE BM Me eS S ot Ses 8 os on a eT OR EN CO Ow Em OO GD GY tO Ge a oe om ey om au EN om oe oe 


TYPE 91010000 EDITBR 
STR1 = STRUC 01011000 ENTTOR 

a BOOLEAN» 01012000 1 0 

D>» 01013000 8 1 

c BIT» 01014000 04 1 

d HEX» 01015000 1 2 

e CHAR 01016000 2 4 

CURTS>» 01017000 ENITUR 

TYPE 01018000 EDITOR 
STR2 = STRUC 01019000 ENIFOR 

f O2o99Ge 01020000 2 0 

o STRING €99)»% 01021000 198 4 

h STR1 01022000 8 204 

CURT S> 01024000 ENITOR 

data 01024000 EDITOR 
DATA 01025000 EDITOR 

vi STRi» 01026000 8 0 54 
‘v2 STR2» 01027000 ele B 54 
va CHAR» 01028000 2 220 54 
V4 HEX» 01029000 222 54 
v5 BOULEAN» 01020000 1 2232 654 
v6 BITe 01031000 28 224 54 


2a Um OM EN Oe eo A © a ee wer mm os em Ge Oe em eu ee a Gs oe GR OU OA RE Gy ED OS no te OU WG ca eS mo mm OR Me om am 


NOTE: For the most information te be supplied by this 
options each ODATA variable cr £TRUCture component must be 
of a separate source Line. 


1.5.13 SAMPLE SPRITE CUNTROL CARDS 


The following control cards are for a Module Interface 
Description ceomoilaticn: 


2.REMOVE <icm name>. % ODotional == closed with REMOVE 
aia alee <mid name>. % Optitonat == clesed with REMUVE 
4% COMPILE <name> WITH SPRITE/P. i "p® forces MID compile 
“2 Pike £YSTEM = <mid name>. % File equate needed 
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1.5013 SAMPLE SPRITE CONTROL CARDS (Continued) 


a? FILE ICM 
2 FILE LINE 
4? DATA CARD. 


thot 


<listino name» etc>., 


The SYSTEM file contains the information 
neeaed for a medule compnilaticn. 


As a mnemonic» remembers “"P for PROG* to 
MID. 


The followineae control cards are for a module co 


APoREMOVE <icm name>. 4 Doticenatl == cles 
43 COMPILE <name> WITH SPRITE. 4 NG "ps 
4? FILE SYSTEM <mid name>. % File equa 
“492 FILE ICM 
42 FILE LINE = <listine names etc... 
%42 DATA CARD. 


ou 
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Appendix J CONVERTING BPL MODULES IQ SPRITE MODULES 


wee See Ree fe ee MS ee ee WS ae ee 


Any BPL module should be carefully coded s 
be converted to the SPRITE lLanauace. 


Small BPL modules are cenerally used fer ma 


o it Can easily 


chine=dependent 


alaorithmse and MCP calle. Extensive use of comolicated 
GPL modules jis hazardous» since the BPL orocessor is net 


intearated into the SPRITE MIO specificati 
schemes and dcesn't understand SPRITE data t 
module is described in the MIN» for the sak 
SPRITE code. This descriotion includes the 
stared data searents and parameters. 


Care should ba taken that data Layouts 
module should be compiled with a *"CONTRGOL EX 
card so that parameters cassed will | 
Interfacine with SPRITE shared data blocks 
through parameters) may be done’ provide 
mappina is known (see 12.8). 


All parameters must be NAME psrameters. if 
access (as snecified in the MEN) is CUNST» 
must not assion‘a value to that parameter. 
pcint specification is a functions the 
coded as a final 'writezonly* NAME parameter 
péerameter is passed then the @PL module must 
for the tencth otf the paramster followed b 
address. 


on/verification 
yoes. The GPL 
e of calls from 

entry pointses 


aoree, The BPL 
TENDED" source 
ook the same. 

(or its data 
d that the data 


the parameter 
this BPL medule 
If the entry 
return value js 
7 If ae UNIV: 
allow 6 diaqits 
y the oarameter 


The format of the reference pasced is uniform for alt 


medules of a proaram. Pt is &8*diGit ex 
controller must be exactly as anticipated 

module. YA and IX controllers on the actua 
forbiacden. Index reoisters are preser 


"functiocn’ procedures. 


If the module is tc be overlayed» all fi 
(FIBs) and townt variables should be out 
COMMON with a unique internal name. The COM 
overlayed or nots» as required. 


The interface described here allows. thi 
reference data that is shared with other wm 
proaram. A DATA seament CCMMUN area is d 
seament name> must be the same as the DATA 
in the MIN description. The variables in 
have types equivalent to the types of the 
variables specified in the MID OATA compone 


tended IA. The 
by the called 
{ parameter are 
ved only oy 


le declarations 
into a sinale 
NON area can be 


s GPL module to 
odules in the 
eclared. <DATA 
name specified 
the COMMON must 

corresponding 
nt. The COMMON 


veriables must oe declared in the same order that the 


variables in the MIO DATA seaoment are dectar 
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Jol TyYPe Ii LeNS FOR BINDER 
A Type If {cM is created from BPL by placina 
<MOQULE NAME> :BEGIN as the first source card. In additions 
a teadinga dollar card must have the 'ICM2* option. 
Inmediately fcllowina the <MONULE WNAMES:BEGIN card the 
Fellowina declarations muct anpear:? 
ae “PROCG_LENTRY® ais reouired if the module CICM) 
contains the oroaram entry point. 
be "ENTRY" is required if the module (ICM) contains 
any entry points that are referenced by other 
modules (ICMs). 


is reauired 
other modules. 


Co SEXTERNAL® 
orocedures in 


codefile is created 
only created 


No 
codefile is 
tocether. 


for any 


when cone or more 


An {CM can be a 
All seamentation directives 
are treated as noise words, 


(1.@oe 


The followina are lanauage restrictions 


IJ] ICMs. 
into a 


Atl otobal data will be attlocated 


COMMON block. 
Executable code within the outer block is 
A <module name> is 
<MODULE NAME> 2GEGIN). 

ianored, 


All seamentation directives are 


kithin precedures will 


"code block’, 


ALL procedures 
outer procedure'’s 


are required 
instead of direct 


Users of dynamic storage 
BINDERsinitialized pointer 


‘*THE INFORMATION CONTAINED IN THIS DOCUMENT IS CONFIDENTIAL AND PROPRIETARY TO BURROUGHS 


if the module 


required prior to the first BEEIN 


(ICM) calls 


ICM beinoa compiled. A 
ICMs 


are bound 


sinale procedure or multinle procedures. 
SECMENTED? 


UNSEGMENTED) 


for creatine Type 


special named 


disallowed. 


(1.8 oP 


be part of their 


to utilize a 


addressing. 
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We Tyee I IO LYPE IL SOURCE CONVERSION 


By eliminatina the AICM declarations deletina option £HCPBs 


and by includine the fF oftion "ICM2* olus 


the 


NAMES ?2BEGIN statement the compiler will attempt to 
a Type If ICM. Any violations of the Tyve II reouirements 


will be syntaxed. With a minimal number of 


Source Type I JCM can be converted to a Source Tyoe 


Currently the BPL processor outouts TYPE TI ICMs, 
must be converted by a filter procram into a Type III ICM. 
Since the format of the input into tne filter proaram 


chances periodically» the user should read 


decumentaticn on the proaram. 
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Appendix K GLOSSARY UF TERMS 


This alossary presents a tlist of words 


this document. For a more extensive 


term. For examoler ¢€11.5) refers te Chapter 


actual parameter (16) 


MANUAL 


1984 9992 


and terms used in 


discussion of the 
termse see the (<chapter>.<section>) referred to with each 


An actual parameter is a variable or 
to a procedure that 


supplied as part cf a call 


replaces the formal parameter for 


of the procedure. 


access attribute (18.2.1) 


om aw ee Ge Se ae th eet eo ee ee 


the 


lie Section 5, 


expressicns 


invocation 


An access attribute controls how a variable may he 


accessed through a particular 


Every reference (access path) to a 
attribute. Access 


associated with it an access 


may be either readronly Cusually 


reference to jit. 
variable has 


denoted by the 


aopearance of CONST) or read/write Cusually 


denoted by VAR). 
acogredate data tybes (13.2) 


An acoreaate (structured) data 


type is 
An aagareoate 


compesed cf compcanent data types. 


data type is defined by descr 
types and by indicatina a 


ibina 


Ce.Cee array» strinas. PACKED 


structures» or sets. 


a data type 


its Component 
structuring method 


or unpacked 


An array is a data structure containino ae fixed 


number of elements» alt of the 


A binary value cf either 0 or 1. 


The explicit cconverscion from 
another data type. 


one 


“"THE INFORMATION CONTAINED IN THIS DOCUMENT IS CONFIDENTIAL AND PROPRIETARY TO BURROUGHS 
CORPORATION AND IS NOT TO BE DISCLOSED TO ANYONE OUTSIDE OF BURROUGHS CORPORATION WITHOUT 


THE PRIOR WRITTEN RELEASE FROM THE PATENT OIVISION OF BURROUGHS CORPORATION" 


same tyoe. 


data type to 


PAS 1968°1 REV 6°73 


‘Burroughs Corporation 
COMPUTER SYSTEMS GROUP 
PASADENA PLANT 


B2000/2000/4000 
SPRITE REFERENCE 


COMPANY CONFIDENTIAL 


ccdefile 


(1.0) 


A codefile is a file containine 


Tt is created vy bindina 
independently compiled modules 
proarame 

ccercion (9) 


A coercion is an égutomatics 
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executable cede. 
teaether alt 
CICMs) of a 


implicit conversion 


from one data type te another type. 

Constant definition (15.1) 
A constant definition associates a name with a 
fixed» compilestime value. The name may be used 
in place of the value throuchout the scope of the 
definition. 

centcol variable (14.2) 
A scalar variable which is aiven an initial value 
and then counted up or down in controlling ai FOR 
statement. 

déta block (16.2) 
A cata block is a named block of storace 
containina one or more variables. 

dgta block definition (16.2) 
A data bleck definition consists of the name of a 
data block and declarations of the variatles that 
it contains. 

dgta tyne (15.2) 
A data type specifies a collection of values that 


any object of that type may tak 
operations allowed on the object. 


(l2-l) 


A dectaration block is 


eon anda set cf 


an unnamed block containina 


constant» typer data and file definitions. 
Decteraticn blocks permit a sinale KNOWS list to 
control the access to a croup of related 


definitions in the MID. 
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A&A denotation is the source text representation of 


a value of a oarticular tyne. 


An entry point is a erocedure that may 
from other modules. Medule entry 


declared in the MID. 


A file block is @ named  obleck 
containing one or more files. 
file block definition (16.3) 


a ob SS ae ae oe a ee ee a 


A fite block definition consists 


be catled 
points are 


storaqe 


the name of 


the file block and declarations of the files that 


it contains. 


file declaration 


A file declaraticn performs two functions. First» 
if causes the creaticn of a File Information Block 
(FIB) and associates with it 1) a collection of 
attributes which describe the characteristics of 
the physicat files and 2) a type which describes 


the records of the logical file. 
referenced in the text of a module. 


formal parameter (16 and 18.2.1.4) 


Secondly» it 
associates with the file a name by which 


it may be 


An identifier declared to be a parameter in a 


orecedure or function declaration. 
procedure or functicn is called Latere 
parameter will oe reclaced by an actual 


function (18.2.1.4) 


A function 16 a procedure that returns 


a fixed type. 


identifiers (6€) 


Tdentifiers are names denotins 


When the 
the formal 
parameter. 


a value of 


constant ss 


variables» various kinds of files» procedures and 


functions. They are composed using 
letters €a..z)% dicits (0.:,9) and the 


“THE INFORMATION CONTAINED IN THIS DOCUMENT IS CONFIDENTIAL AND PROPRIETARY TO BURROUGHS 
CORPORATION AND IS NOT TO BE DISCLOSED TO ANYONE OUTSIDE OF BURROUGHS CORPORATION WITHOUT 
THE PRIOR WRITTEN RELEASE FROM THE PATENT DIVISION OF BURROUGHS CORPORATION": 


lowercase 
underscore 


PAS 1968°1 REV 6°73 


1982 


9992 


Burroughs Corporation 
COMPUTER SYSTEMS GROUP 
PASADENA PLANT 


B2000/77000/4000 
SPRITE REFERENCE MANUAL 


64 


REV. A PAGE 


COMPANY CONFIDENTIAL PRODUCT SPECIFICATION 


identifiers (6) (Continued) 


character. 


indicants (6) 
Indicants are names denotino user-defined data 
types» file attributes and their mnemonic values. 
These are composed usina upper-case Letters 
(AsoeZ)e diaits (0.9) and the underscore 
character. 


intcinsics (Apoendix W) 
These are already=ccmpiled reutines which provide 
debugging» [/0+5 and other miscellanecus' functions 
for a SPRITE proaram. A ovrocram that makes an 
explicit call te an intrinsic must declare its 
interface in the HID. 


A knows List is a List of those modules that have 
access to a modules an entry ooint procedures data 
blocks constant definitions tyne definition or 
declaration block declared in a MID. The purpose 
of a knows tist is to control the access’ to 
comocnents and the scope cf names. 


MIO 
Associated with each SPRITE procram is a Module 
Interface Description (MID). The MIO describes 
the definitions held in common and the interface 
requirement for a SPRITE prooram. 

mcedule 


= om er am 


A module is the basic unit of compilation. It 
consists of one or mere oreocedures and zero or 
more constant definitionss tyoe definitionss file 
defiritions and cata definitions. 


These names are established and known within the 

scope of a sinole SPRITE medule. They may be 

knowr te one or more procedures within the module. 

Examoles of modulerlocal names are the names of 

procedures» constantse data tynese and data blocks 
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A STRING or  ARRAYC*#) 
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data type whose size 
attribute is allowed to vary as different objects 
cf either type are created. 
are established usinc parametric type definitions. 


Parametric data types 


A pointer is a variatle whose value is a reference 
to an abject of a earticular type. A pointer 
variable may have @ value 


no object. 


own eS Ss te me me 


(nil) which references 


A procedure specifies a named block of code and 
its associated data. Procedures are named or 
identified via procecure definiticns. Procedures 
exist within the scope of SPRITE modules and may 
be invoked from cther points in a prooram. ~— Scme 
orocedures act as furctions and return values. 


proceoure definition (16.1) 


This definition associates an identifier with a 
block of code and its data. 


ococedure"Local names (10-3 and 16-1) 
These names are estatlished and known only within 
a sinale SPRITE procedure. Local variables are 
examoles of such names. The names involved may 
have aifferent meanings in other procedures 
because names need not be unique if their scopes 
do net intersect. Procedures which do not share 
module=tocal or program= local names may redefine 
those names. 


A SPRITE ovrocram is composed of one or more 


modules Which are ccmpiled jndependently. Each 
SPRITE program has associated with it a Io 
component which specifies the allowable 


interactions among SPRITE modules and defines 
constants» types» and data btocks which may be 
used throughout the proaram. 
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The oprecedure to be invoked when a SPRITE prooram 
beaqins executino. Exactly one entry point must be 


declared in the MiD. 


orogram=blocal names (10.3) 


These names are estatlished in 


the MID component 


of a SPRITE prooram. These names may be known to 
one or more mcdules cf a SPRITE pregram. Examples 


of proaram=tlocal names are 


the names of data 


blocks and the variables they contains and the 


names of modules. 


reserved word 


mea oh Si ee eee ee a 


A word within the SPRITE Lancuace system which has 
a predefined meaning and may not be redefined. 


SS es os ee oe 


A simolers unstructured data 


ty per Boolean, 


symbclic franoes numeric eubrances and character 


may be scalar types. 


Scope 16 a property asseciated with a name. The 
scope cof aname is the extent of program text in 
which the name is known. A name must be unique 


within its scope. 


in 
Tar) 
tet 
~ 
i 
Iw 


o beh) 


A set type defines the set of values that is the 
power set of its base tyoer i.e. the set of alt 
subsets of values of the base type. 


This declaration enables orocedures to access 


variables in a data block cr 


files in ae file 


block. The SHARES declarations anpear within 


procedure definitions. 


SPRITE 


SPRITE is a procedural» 


statement~orienteds 


stronaly typed systems imolemention tlanauade. 
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standard functions (Appendix A) 


Standard functions are predefined procedure-like 
features provided by the tanauaae to perferm 
certain common tasks. 


SBSiee ae as oe eae le ae ets ai Nem vate ee cate 


The standard modules are predefined module-like 
features provided by the language to access common 
capabilities provided by the operating system. 


statement*LlLecal names (10-4) 


These names are knowr only within the context of a 
sinate statement. FOR and FIND statement control 
variables and the UNTIL= CASE statement situation 
names are statement=local names. These control 
variables and situation names may not be used in 
any other way within the containina procedures but 
tney may have a cifferent meanina in other 
procedures. 


string (13.3.2) 
A strina is a sequence of characters or 
hexadecimal diaits of a particular positive 


Lenoth,. | 


® 


A structure is 4@ datatype consistina of 
collection cf componentss catled *fietds". A 
structure may have ore or more variant parts. 


subranage (14.2.2) 


A  subranae defines a conticuous subset of values 
of an ordered scalar base type. The cpoerations on 
values of a subrance are inherited from the base 
type. 


A symbolic ranqe is a collection of names 
enumeratina all values of the type. The values 
may cr may not be orcered. 
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type definition (15.2) 


A type definition is used to define a SPRITE data 
type. A type definition associates an indicant 
with a type description. 


undefined 


The value of a variable is said to be undefined if 
no value has yet been assianed to it» or after 
conclusion cf certain operations. 


veriant 

A means whereby a portion of a structure 
declaration may have several ditferent meaninos. 
A structure may have one or more variant parts. 
Alternative field lists are crouped and identified 
by constants cf a particular finite type. 
Accessibility te each variant field tList is 
determined by a taa field. When the value of the 
taa field corresponds to a particular constant 
that identifies a variants that variant's field 
List may be accessed. A runetime error wilt 
result if the field accessed is net in the variant 
specified by the taa field's value (*), 


vériable declaration (15.4) 

A variable declaration performs two functions. 
Firste it Causes Creation of a run-time object (a 
variable) and associates with it a collection of 
possible values tits type) that it may have. 
Secondly» it associates with the variable a name 
by which it may be referenced in the SPRITE source 
text. 
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